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3. Jahrgang 


5,50 DM 16,50 FMK 6,00 sFr 48 öS 


Der Epson Personal-Computer QX-16 
(Bericht Seite 78) 


C 64 * CPC 464 * VC-20 * Atari * Apple * TI-99 * ZX-Spectrum * MSX * 

28 Computersysteme im Seochmork-Test! 


CPC-464: Forest at World’s End 
CPC-464: Ghouls 


TI-99: Super-Disassembler 
CPC-464: PAINTER 
BTX: - Aktuell - 


Für CPC-464 


Atari: Zeicheneditor 
C-64 / VC-20: Decelerator 
CPU-Game 
MSX: Alien Attack 




Ab sofort wieder bei ihrem Zeitschrifteohänd/er 

erhüMieh! 


Monatlich 



STOP + + + Neue Ausgabe + + + STOP 
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CPU Juli ’85 



Der OKI MICROLINE 192-Drucker, 
eine der zahlreichen Neuheiten, die seit 
der Hannover-Messe auf den Markt ge- 
kommen sind 



Ein komfortables Zeichenprogramm 
für den CPC-464 



Ein Weltraumspiel für MSX-Com- 
puter-Besitzer 


CPU-Utility 

CPC-464 

Erweiterung des CPC-Befehlssatzcs 


um einen Box-Befehl 17 

Atari 

Zeicheneditor 29 

TI-99 

High-Resolution Graphik 47 

C-64 

Del 64 48 

Deutscher Zeichensatz 50 

C-64/VC-20 

Decelerator 66 


CPU-User 

ZX-Spectrum 


Quassi 9 

Dokumentation von Systemvariablen * 14 

Mit Maschinensprache zum Bildschirm 44 

BTX setzt sich durch 26 

CPC-464 

Painter 38 

Apple 

Hello 52 

TI-99 

Super-Disassembler 57 


CPU-Tips und Tricks 

Für CPC-464 25/43/63 


CPU-Markt 


Neues vom Computermarkt 

4/78 

CPU-Game 


MSX 

Alien Attack 

20 

CPU-Test 


Hardware 

Wer ist der Schnellste im ganzen Land? 

37 

Software 

CPC-464: Forest at World's End 

13 

CPC-464: Ghouls 

13 

Rubriken 

CPU-Wörterbuch 

8 

Impressum 

20 

CPU-Happy 

46 

CPU-Bibliothek 

75 

Softwareservice 

64 

CPU-Basar 

70 

Computer-Club- Vorstellung 

73 

Computer-Messen '85 

63 
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Erstes vollautomatisches Selbst- 
wähl-Modem von der Deutschen 
Bundespost FTZ-zugelassen 



Unter der Nummer FTZ 
04168 D wurde erstmals von 
der Deutschen Bundespost 
ein Modem zugelassen, das 
auf der Basis einer Wählelek- 
tronik DB 1201/02 arbeitet 
und von einem Programm 
gesteuert wird. 

Damit besteht jetzt eine ko- 
stengünstige. sichere Alterna- 
tive zu den störanfälligen 
Akustikkopplern, zu teuren 
Standleistungen und z. T. 
zum Telex-/Tcletextnetz. 

Das Wählmodem wurde zu- 
gelasscn für alle IBM PC-Mo- 
delle, Sirius/Victor-Compu- 
ter und alle IBM-Kompati- 
blen. 

Das Modem wird asynchron 
mit 1200/75 Baud betrieben 
und mit einem von Control- 
ware entwickelten Gehäuse 
mit serieller Schnittstelle und 


Spannungsversorgung an den 
PC angeschlossen. 

Die midas-Software arbeitet 

in 2 Modi: 

manuell: 

Telefonnummern werden 
über die Tastatur eingegeben, 
der PC wählt sich zu einem 
weiteren durch. Wenn die 
Verbindung zustandekommt, 
können Dateien gesendet 
oder von der Gegenanlage ab- 
gcholt werden, 
automatisch: 

Aus dem midas-Programm 
oder einem beliebigen ande- 
ren kann eine Datei erstellt 
werden, die beliebig viele Te- 
lefonnummern. gewünschte 
Uhrzcit und zu übertragende 
Texte beinhaltet. Diese Datei 
wird vom Programm abgear- 
beitet und die Texte können 
z. B. nachts übertragen wer- 


den. 

Übertragen wird 8-bit-Code, 
also nicht nur reiner Text, w ie 
im Telex-Netz, sondern auch 
Maschinenprogramme oder 
Grafikdateien. 

Die Übertragung erfolgt 
komprimiert. Für mehr als 3 
gleiche Zeichen werden nur 
das Zeichen selbst und dessen 
Anzahl übertragen. Damit 
können die Kosten wesent- 
lich reduziert werden. 


Die Wählkarte DB 1201/02 
wird von der Deutschen Bun- 
despost für 18 DM Monat 
vermietet. Software und Mo- 
dem-Box sind von midas Tür 
den Preis von DM 1500 + 14 
% MwSt. erhältlich. 

In Kürze wird das System 
auch im Hintergrundbetrieb 
verfügbar sein. Damit kann 
der PC senden/empfangen, 
wenn im Vordergrund z. B. 
Briefe geschrieben werden. 


Neue Computer: Ataris neue 

Superrechner 


Auf der CES in Las Vegas 
stellte Atari erstmals seine 
neue Rcchnergeneration dem 
Publikum und der Fachpres- 
se vor. Auf der Hannover- 
Messe wurden die Geräte 
dem staunenden Publikum 
präsentiert: 

Das neue Flaggschiff von 
Jack Tramicl ist der Atari ST 
520. Dieser neue Computer 


ist mit einer 8 MHZ - 68000 
CPU und 512 kByte RAM 
ausgerüstet. Aufgrund des 
Graphic Enviromcnt Mana- 
gers GEM von Digital Rese- 
arch. einem Graphik-.,Be- 
triebssystem“. bietet der ST 
520 nahezu die gleiche Benut- 
zeroberfläche wie Apples 
Macintosh. GEM unterstützt 


Icons. Windows und die Ata- 
ri-Mouse. Aufgrund dieser 
Mac-Ähnlichkeit trägt der 
neue Rechner bereits den 
Spitznamen Jackintosh. Au- 
ßer dem GEM ist in den 192 
kByte ROM das Betriebssy- 
stem TOS (Tramiel Opera- 
ting System) untergebracht, 
das eine modifizierte CP/M 
68k-Version ist. 

Wie auf der Messe zu erfah- 
ren war. wird der ST 520 ab 
Juni/Juli 85 mit Basic und 
Logo im ROM ausgcliefert. 
andere Sprachen (wie z. B. C 
und Forth) werden jedoch 
auch erhältlich sein. Das be- 
ste ist jedoch der Preis des 
Rechners. Zusammen mit ei- 
ner ebenfalls neu entwickel- 


ten 500 kByte Floppy (For- 
mat 3Vi Zoll), einem mono- 
chromen Monitor und der 
Maus wird das Komplettsy- 
stem nach Angaben von Ata- 
ri-Mitarbeitern etwa 2990 
DM kosten. Zum Sensations- 
preis von nur ca. 1200 DM 
soll eine 10 MB-Festplatte er- 
hältlich sein. 

Die auf der CES ebenfalls an- 
gekündigten kleineren Mo- 
delle der ST-Scrie (ST 130 
und 260) werden nach Anga- 
ben von Atari-Mitarbeitern 
zumindes vorerst nicht in Eu- 
ropa angeboten. 

Zusammen mit dem ST 520 
stellte Atari auch den Nach- 
folger des 800 XL. den 130 
XE vor. Das neue Gerät hat 
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Atari ST - ein neuer 
Leistungs-PC - 


einen RAM-Speicher von 
128 kByte. eine 6502-CPU 
und soll vollkompatibel zu 
seinem Vorgänger sein. Seine 
kleineren Brüder, die 64 kBv- 
te-Modelle 65 XE. 65 XEP 
und 65 XEM wurden nicht 
mehr vorgestellt und werden 
wohl auch (zumindest vor- 
erst) nicht produziert. 


stung oder leistungsfähige, 
dafür aber sehr teure Perso- 
nal-Computer. Dazwischen 
in der Klasse zwischen 3000 
und 6000 Mark gab es kein 
besonders attraktives Ange- 
bot. Atari hat jetzt für diesen 
Käuferkreis einen Personal- 
computer der Spitzenklasse 
zu einem sehr günstigen Preis 
gebaut. Mit 520 Kilobyte- Ar- 
beitsspeicher und einem 500 


Bisher konnte der Kunde nur 
zwischen zwei Computer- 
Klassen wählen. Preiswerte, 
dafür aber einfache Heim- 
Computer mit wenig Lei- 


Kilobyte-Diskettenlaufwerk 
wird der Atari unter 3000 
Mark kosten. 

Die von Atari beim ST einge- 
setzte Computer-Technolo- 
gie repräsentiert die Spitze 
des heute möglichen Stan- 
dards. Dazu gehört beson- 
ders der Mikroprozessor 
MC 68000. der zu den 
schnellsten und leistungsfä- 
higsten Prozessoren über- 


haupt gehört. Auch umfang- 
reiche Aufgaben und große 
Datenmengen im professio- 
nellen Einsatz sind für den 
520 ST kein Problem. 

Mit GEM wird ein völlig neu- 
es Betriebs- und Bedienungs- 
system für Personal-Compu- 
ter angeboten. Es wurde vom 
international bekannten 
Software-Haus Digital Re- 
search entwickelt. GEM bie- 
tet dem Benutzer den großen 
Vorteil, daß er keine kompli- 
zierten Com puter- Befehle 
mehr lernen muß, sondern 
im einfachen Dialog auf ver- 
ständliche Fragen des Com- 
puters antwortet. 

Dafür steht ihm neben der 
Tastatur, natürlich mit Um- 
lauten und deutschen 
Sonderzeichen, eine soge- 
nannte Maus zur Verfügung, 
die einfach Uber den Tisch 
geschoben wird. Will er bei- 
spielsweise schnell etwas be- 
rechnen, wird der Pfeil mit 
Hilfe der Maus auf dem Sym- 
bol „Kalkulator" bewegt. 
Nach einem Knopfdruck er- 
scheint die Zeichnung eines 
Taschenrechners auf dem 
Monitor, und wie mit dem 
Finger werden dann die zu 
berechnenden Zahlen mit der 
Maus und dem Pfeil ange- 
tippt. 

Software-Entwickler in den 
USA und der Bundesrepublik 


arbeiten an Standard- und 
Branchenprogrammen für 
den Atari ST. 

Die ST-Modelle von Atari 
sind komplett ausgestattet. 
Ohne elektronische Aufrü- 
stung oder Zusatzplatinen 
sind zwei Schnittstellen, 
RS232C und Centronics, vor- 
handen. Außerdem ein An- 
schluß für das serienmäßige 
3.5 Inch Diskettenlaufwerk 
und eine Festplatte. Atari hat 
Steuerung und Intelligenz für 
Floppy und Festplatte in die- 
se Systeme integriert, so daß 
sie ohne Aufwand steckfertig 
an den Kunden geliefert wer- 
den. Für den Bildschirm gibt 
es drei Anschlüsse, RGB für 
einen Farb-Monitor, Farbe 
ist serienmäßig, eine AV- 
Buchse für einen monochro- 
men Monitor und ein HF- 
Ausgang für den Anschluß ei- 
nes normalen Fernsehgerätes. 
Durch die Auswahl unter drei 
Bildschirmen gewinnt der 
Atari 520 ST an Flexibilität. 
Bisher war der Personal- 
computer wegen seiner Grö- 
ße und seinem Gewicht an 
den Arbeitsplatz gebunden. 
Der kleine, leichte, handliche 
ST dagegen ist mobil ersetz- 
bar. 

Preis des Atari 520 ST inklu- 
sive eines 3,5-Zoll-Disketten- 
laufwerks: DM 2795,- 



Die neuen 128-Modelle von 

Commodore 


Der neue C 128-Personal- 
Computer deckt alle Anwen- 
dungen bisheriger Heimcom- 
puter ab, erfüllt darüber hin- 
aus noch die Forderungen an 
einen Personal-Computer. 
Das Modell folgt damit dem 
Trend bei den häuslichen An- 
wendungen. Traten bisher im 
wesentlichen Jugendliche als 


Benutzer auf. so werden im 
zunehmendem Maße auch 
Erwachsene für Aufgaben der 
beruflichen Fortbildung. Ein- 
satz im Kleinstbetrieb oder 
Teilnahme an Service-Ein- 
richtungen der Telekommu- 
nikation (Btx. Datex-P. 
Mailbox, Datenbanken. Elec- 
tronic Mail) hinzukommen. 


Diesem Anwendungsprofil 
entsprechend ist die Struktur 
des Commodore 128 als Dual 
CPU-System mit MOS 8502 
und Z 80 aufgebaut. Die neu- 
entwickelte 8502 in Verbin- 
dung mit residentem Be- 
triebssystem und Basic-Inter- 
preter ist im Commodore 64- 
Modus zu diesem Commo- 


dore-Modell kompatibel; im 
Commodore 128-Modus ar- 
beitet sie kompatibel zu der 
am weitesten verbreiteten 8- 
bit-CPU 6502. Hierdurch 
sind praktisch sämtliche für 
Commodore-Rcchner jemals 
entwickelte Programme nach 
geringen Modifikationen 
laufiahig. Hinzu kommt das 


7/85 


CPU 5 



CPU-Markt 


Angebot an professioneller 
CP/M 3.0 Software, die über 
Disketten geladen wird. Der 
Arbeitsspeicher beträgt je 
nach Betriebsmodus 64 bis 
128 KB R AM. Die Kapazität 
läßt sich bis auf 512 KB er- 
weitern. Im Textbetrieb ist 
der Bildschirm in 40 Zeichen 
x 25 Zeilen organisiert. Im 
128- und CP M-Modus kann 
auf 80 Zeichen umgeschaltet 
werden. Gleiches gilt für die 
Grafikauflösung mit 320 bzw. 
640 x 200 Punkten. Es wer- 
den bis zu 16 Farben darge- 
stellt. im 64- und 128-Modus 
bis zu 8 Sprites. Das Schnitt- 
stellenangebot ist wie ge- 
wohnt komplett, jedoch gibt 
es zusätzlich neben dem Vi- 
deo-Ausgang einen RGBI- 
Ausgang. Das in der Modell- 


version Commodore 128 D 
eingebaute Diskettenlauf- 
werk ist kompatibel zur Flop- 
py 1541 und erreicht je nach 
Betriebsart eine Kapazität 
von maximal 410 KB. Die 
alphanumerische Tastatur 
mit separatem Rechenblock 
und Funktionstasten hat mit 
insgesamt 92 Tasten profes- 
sionellen Zuschnitt. Der Preis 
für den C 128-Personal-Com- 
putcr beträgt ca. DM 1200.-. 
Mit dem neuen Modell C 128 
deckt Commodore über das 
eigene residente Betriebssy- 
stem besonders benutzer- 
freundliche Anwendungen in 
Unterhaltung und Ausbil- 
dung ab und ermöglicht 
gleichzeitig über CP M die 
Nutzung großer Programm- 
Bibliotheken. 



Technische Daten des 
C-128 


CPU: 


Taktfrequenz: 


Arbeitsspeicher: 


Betriebssystem: 


Interfaces: 


Program m iersprache: 


Massenspeicher: 


MOS 8502 

(simuliert MOS 6510 und MOS 6502) 
Zilog Z 80 
64- Mod us 1 MHz 
128-Modus 2 MHz 
Z80-Modus 4 MHz 
64- Mod us - 64 KB RAM 
128-Modus - 128 KB RAM 
Z80-Modus - 128 KB RAM 
Externe RAM-Disk bis 512 KB 
im 128-Modus resident 
48 KB ROM (max. 96 KB ROM) 
im Z 80-Modus CP M 3.0 über Dis- 
kette ladbar 
Commodore seriell 
Control-Ports. 2 
User- Port 
Audio/Video 

RGBl, digital (TTL-Pegel) 
HF-Modulator 

Erweiterungs-Port für Steckmodule 
im 64-Modus - BASIC 2.0 residenter 
Interpreter 

im 128-Modus - BASIC 7.0 residen- 
ter Interpreter und Maschinenspra- 
che-Monitor 

im Z 80-Modus - weitere Sprachen 
ladbar 

Typ Commodore 1541. beim Modell 
Commodore 128 D integriertes 5 '/*- 
Zoll-Flopp> -Laufwerk, sonst separat 
im 64 128-Modus kompatibel zum 
Floppy-Laufwerk 1541 


Tastatur: 


Zeichen Zeile: 


Farbe: 


Sound: 

Monitor: 


im-64 Modus - Double Side max. 350 
KB. Übertragungsrate 300 Zeichen/ 
sec 

im 128-Modus - Double Side max. 
350 KB. Übertragungsrate 1500 Zei- 
chen sec 

im Z 80-Modus - Double Side Dou- 
ble Density max. 410 KB. Übertra- 
gungsrate 3500 Zeichen/sec 
professionelle Schreibmaschinen ta- 
statur mit 92 Tasten, separater Re- 
chenblock mit 14 Tasten. 8 Funk- 
tionstasten. 6 Cursortasten. 1 Help- 
Taste und 1 Umschalttaste von 40 auf 
80 Zeichen 
Textbetrieb 

- im 64-Modus 40 Zeichen x 25 Zei- 
len 

- im 128-Modus umschaltbar 40/80 
Zeichen x 25 Zeilen 

- im Z 80-Modus 640 x 200 Punkte 
Graphik 

- im 64-Modus 320 x 200 Punkte 

- im 128-Modus umschaltbar 
320 640 x 200 Punkte 

- Z 80-Modus 640 x 200 Punkte 
16 Farben 

im 64 128-Modus zusätzlich bis zu 8 
Sprites 

6581 SID-Chip 
40 Zeichen 

- im 64 128-Modus über VIC Chip 
NTSC PAL Color TV oder Moni- 
tor 1701/1702 

80 Zeichen 

- im 128-Modus und Z 80-Modus 
über Video Interface Chip 7563 
RGBl Monitor plus monchro- 
men Monitor 
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Schon gehört?! — + + - Schon gehört?! — + + - Schon gehört?! — + + - 


Der TRONIC-VERLAG sucht in den Computerzeitschriften „COMPUTRONIC“ und ..HOMECOMPUTER" den 

Software-Champion 1985!!! 

Es «arten tolle Preise auf Sie! 


i pw F m* 

5000 DM in bar! 

2. PREIS: 

Ein Farbmonitor 
im Wert von 800,- DM! 

3. PREIS: 

Computer-Zubehör (wahlweise 
im Gesamtwert von 300,- DM) 


Nutzen Sie Ihre Chance, beteiligen Sie 
sich mit einem Software-Programm an 
unserem W ettbewerb! 

Jedes eingesandte Programm nimmt an 
der Auswahl teil!!! 

Letzter Annahmetermin ist der 30. Sep- 
tember 1985. Der Rechtsweg ist ausge- 
schlossen. 

Zur Auswahl: 

W ir stellen in jeder Ausgabe von COM- 
PUTRONIC mindestens drei TOP- 
PROGRAMME. in ..HOMEC OMPU- 
TER“ I Topprogramm vor. Hierfür 
trifft die Redaktion die Entscheidung 
(unabhängig vom Computertyp). 

Wird ein Programm zur Darstellung im 
Heft herangezogen, zahlt der Verlag ein 
Honorar von DM 1 20.- pro abgedruck- 
te volle Seite. Zum Jahresende stellt die 
Redaktion noch einmal alle als TOP- 
PROGRAMME ausgezeichneten Pro- 
gramme vor. Unsere Leser und die Re- 
daktion werden dann in der Ausgabe 
Nov. Dez. '85 das absolute TOPPRO- 
GRAMM des JAHRES wählen. 

Der Autor des Programmes w ird in un- 
serer Ausgabe vorgestellt und mit DM 
5000.- prämiiert werden. 


Einzusenden sind: 

++ Spielbeschreibung 
++ Datenträger 

-H- Eisting (nicht unbedingt erforderlich) 
Einsenden an: TRONIC-VERLAG - 
Postfach - 3444 Wehretal 1 
KENNWORT: SUPER-SOFTWARE- 
CHAMPION 


Wir wünschen allen Freizeitautoren 
viel Spaß beim Mitmachen. 
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Wörterbuch 


2€ 

Fortsetzung des CPU- Wörterbuches 


-F-- F-* 


Formatierer 

Ein Systemprogramm, meist 
ein Unterprogramm eines 
Diskettenbetriebs-Systems, 
(z. B. CP/M), das die einzel- 
nen Sektoren/Tracks einer 
Diskette kennzeichnet. 


Forth 

Eine höhere Programmier- 
sprache, die sehr stark an As- 
sembler angelehnt ist. Es ist 
eine sehr schnelle Sprache, 
die auch für Heimcomputer 
geeignet ist. Sie wurde Mitte 
der siebziger Jahre von der 
amerikanischen Firma Forth 
entwickelt und war in erster 
Linie für Steuerungsaufgaben 
gedacht. Der Anwender kann 
in Forth eigene Befehle defi- 
nieren. Forth läßt sich somit 
für fast alle Aufgaben einset- 
zen. 


Funktionstaste 
Tasten eines Computers, de- 
nen kein Zeichen, sondern 
eine Funktion zugeordnet ist; 
dazu zählen die Cursor-Ta- 
sten, Break-Taste und andere 
Spezialfunktionen des Com- 
puters. Viele Computer besit- 
zen die Möglichkeit, be- 
stimmte Tasten mit einer 
Funktion zu belegen. 


Friktionsantrieb 

Der Friktionsantrieb erlaubt 
bei Druckern die Verwen- 
dung von Endlos- oder auch 
Einzelblattpapier ohne den 
„Lochrand“, der für die 
Traktorführung erforderlich 
ist. 


Fortran 

Eine höhere Programmier- 
sprache, die im Jahre 1954 
entwickelt wurde. Ähnlich 
wie Algol ist auch Fortran 
eine problemorientierte Pro- 
grammiersprache, die vor al- 
lem im technisch-wissen- 
schaftlichen Bereich einge- 
setzt wird. Die Symbolik von 
Fortran lehnt sich stark an 
die mathematische Formel- 
sprache an und ist daher di- 
rekt auf die Bedürfnisse von 
Ingenieuren, Technikern und 
Wissenschaftlern zugeschnit- 
ten. 


-G— 


Ganzzahl (integer Zahl) 

Eine Zahl, die keine Nach- 
kommastellen besitzt. Viele 
Heimcomputer können spe- 
zielle Integer-Variablen ver- 
arbeiten, diese benötigen we- 
sentlich weniger Speicher- 
platz als die Realen- Varia- 
blen. 


Gleitkomma-Arithmetik 
Häufig auch mit Fließpunkt-, 
oder Floating-Point-Arith- 
metik bezeichneter 8 Rechen- 
algorithmus. 


GOTO 

Ebenfalls ein Befehl der Pro- 
grammiersprache Basic, wel- 
cher zu der angegebenen Zei- 
lennummer verzweigt. 


GOSUB 

Befehl der Programmierspra- 
che Basic. Durch die Angabe 
einer Zeilennummer wird ein 
Unterprogramm aufgerufen. 
Dieses wird durch den RE- 
TURN-Befehl wieder verlas- 
sen. 


-H^H- 


Halbduplex 

Mit Halbduplex bezeichnet 
man ein Datenübertragungs- 
verfahren, bei dem zwar die 
Übertragung in beide Rich- 
tungen möglich ist, jedoch 
zum selben Zeitpunkt Daten 
nur in eine Richtung übertra- 
gen werden können. Um eine 
Antwort zu senden, müssen 
Sender und Empfänger umge- 
schaltet werden. Halbduplex 
wird heute kaum noch ver- 
wendet und wurde durch das 
Vollduplex-Verfahren er- 
setzt. 


Haltepunkt (breakpoint) 

In einem Programm gekenn- 
zeichnete Stelle, an der dieses 
angehalten wird und dem Be- 
nutzer die Möglichkeit zum 
Testen bietet. Diese Methode 
wird vorwiegend in der 
Assembler-Programmierung 
angewandt. 


Händler (hantierer) 

Teil eines Programms, um 
Peripheriegeräte zu kontrol- 
lieren. 


Hamming-Code 

Ein spezieller Code, der als 
Fehlerkorrektur-Einrichtung 
verwendet wird. Es ist ein 7- 
Bit-Code, dessen Aufbau die 
Identifizierung fehlerhaft 
übertragener Daten ermög- 
licht. 


Hardcopy 

Ein genauer Ausdruck einer 
Bildschirmseite. Oft ist der 
Hardcopy-Befehl im ROM 
des jeweiligen Computers 
enthalten. 


Hardware 

Alle Geräte und mechani- 
schen Komponenten eines 
Computersystems einschließ- 
lich der Peripheriegeräte. 


HEX 

Abkürzung für Hexadezimal 
System. 


Hinterbandkontrolle 

Bei der Hinterbandkontrolle 
werden die gerade aufge- 
zeichneten Daten mit einem 
Lesekopf, der gleich hinter 
dem Schreibkopf sitzt, ge- 
prüft und mit den ursprüngli 
chen Sollwerten verglichen 
Tritt bei der Prüfung ein Feh 
ler auf, so werden die Daten 
neu auf das Band geschrie 
ben. Diese komfortable Ein 
richtung ist bis jetzt be 
Heimcomputem noch nich 
vorhanden. 
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„ Ouassi“: Ein Pro g ramm für den 

ZX-Spectrum 48 K 

Quassi ist ein Programm, das 
die Erstellung und Verbesse- 
rung von Maschinenpro- 
grammen wesentlich komfor- 
tabler gestaltet. Es gestattet 
die Eingabe des Codes im 
Hex-Format, setzt selbstän- 
dig die entsprechenden Spei- 
cherzellen. wie man es von 
einem Assembler gewohnt 
ist, auf den Bildschirm und 
erleichtert das Verbessern 
oder Löschen einzelner oder 
mehrerer Speicherzellen. 

Nach dem Start erscheinen 
zunächst die verschiedenen 
möglichen Kommandos. Da- 
nach gibt man die Anzahl der 
Bytes ein, die man sich reser- 
vieren lassen will, und an- 
schließend die Adresse, ab 
der man das Programm er- 
stellen und starten lassen will. 

Es erscheint darauf die erste 
Adresse mit einem Cursor 
davor. Man kann jetzt den 
gewünschten Hex-Code oder 
das Kommando eingeben. Ist 
es ein Hex-Code, so wird die- 
ser der aktuellen Adresse 
zugeordnet. Dabei ist es vor- 
gesehen und auch sinnvoll, 
jeweils eine geschlossene Be- 
fehlsgruppe in einer Zelle un- 
terzubringen. Dies erhöht die 
Übersichtlichkeit beträcht- 
lich. Nach Übergabe des 
Hex-Codes mit ENTER er- 
scheint dieser nun neben sei- 
ner Adresse, es wird die näch- 
ste freie Adresse mit Cursor 
angezeigt und man kann ei- 
nen weiteren Code oder ein 
Kommando eingeben. 


Wenn man die Kommandos cingibt. so muß man darauf ; kann man es mit “g“ laufen lassen. Der Variablen "Ergebnis" 
achten, daß nach dem 1. Kommandobuchstaben direkt die wird dabei der Inhalt des BC-Registerpaares zugeordnet, 
anzusprechende Speicherzelle steht (natürlich außer p. 1, g, s. Der Speicherbereich von 6490t) an aufwärts ist mit Absicht 
xx) und daß die zweite Adresse bzw. der HexCode (bei v und i) freigelassen, um 
vom ersten Teil durch Kommas getrennt werden. Beispiele für 

die Kommandos: a) die UDGs nicht zu stören 

v65200,fT i65190,0b0a x64500. 1 und b) evt. dort noch ein MC-Programm unterzubringen, 

| das eine Einzelschrittbearbeitung erlaubt. Dazu 

Nachdem man das Maschinenprogramm erstellt hat. lädt man müßte man jedes "##" durch ein ’CALL-Subrouti- 

esmit 1 und speichert es mit s am besten gleich ab. Danach ne’ ersetzen, daß dieses Programm aufruft. 


Zu den Kommandos: 

“p“ druckt das gesamte, bisher erstellte Programm aus, 

"1" lädt das Programm ab Startadresse in den Speicher, 

“g“ startet das gespeicherte Programm ab Startadresse, 

"s" speichert das Programm auf Kassette, 

"x a, b“ löscht von Adresse a an b Zeilen. Dabei werden 
jeweils ganze Zeilen und nicht nur Speicherzellen 
gelöscht. 

Aus 65200 cd 1 f 09 ## 

65203 fl ## 

65204 06 00 ## 

65206 0e ff ## 

wird mit “x65203,2“: 65200 cd 1 f 09 # # 

65203 0e ff ## 

“v a, b$“ Verbessert Adresse a mit b$: 

65200 cd 00 91 ## — “v65201,10" — 65200 cd 10 91 ## 

“i a, b$" Schiebt ab a noch b$ ein: 

65200 0c 00## 1 [ 65200 0c 00## 

| “i65202,0b6e" — | 65202 0b 6e ## 

65202 cd 3e 09 ## J [ 65204 cd 3e 09 ## 

“r a. b“ Berechnet einen relativen Sprung von a nach b. 

Dabei ist a die Adresse, in der der relative Sprung- 
befehl steht. Für die Sprungweite setzt man am 
besten vorläufig einen beliebigen Wert ein und 
läßt am Schluß den richtigen Wert ausrechnen 
und einsetzen: 

65200 4f ## ] 65200 4f## 

6520118 1T## | — "r6520 1,65200"— 65201 18 fd ## 

65203 00 ## J 65203 00 ## 

“xx" löscht das ganze Programm, setzt die Adresse 

w ieder auf die Startadresse und geht zum Anfang. 
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Zeile 40 - 290 


300- 305 
310- 315 
400- 430 
500- 510 
600- 650 
700- 765 
800- 840 
900- 935 
1100-1130 
1200-1210 
5025 -. 
5100-5120 
5300-5320 


Wichtige Programmteile: 


Eingabe des Hex-Codes 
Verarbeitung des Hex-Codes mit Ver- 
zweigung zu den Unterprogrammen 
Cursor setzen 
Cursor löschen 
Unterprogramm “Laden“ 
Unterprogramm “Starten“ 
Unterprogramm “Verbessern“ 
Unterprogramm “Löschen“ 
Unterprogramm “Einfügen“ 
Unterprogramm “Relativer Sprung" 
Unterprogramm “Programm listen“ 
Unterprogramm “Abspeichem“ 
Unterprogramm “Bildschirmkopf 4 
Unterprogramm “neue Bildschirmseitc“ 
Unterprogramm “alte Bildschirmseite 
löschen“ 


8000-8025 Unterprogramm “Eingabestring 
aufspalten“ 

9000 Unterprogramm “Unterprogramme 

aufrufen“ 

Sollte das Programm wegen einer fehlerhaften Eingabe ausstei- 
gen (ein Komma vergessen o. ä.), so setzt man es am besten 
mit GOTO 40 wieder fort. Der bis dahin erstellte Programm- 
string geht dabei nicht verloren. 

Gegen Absturz bei einem Programmfehler im erstellten Ma- 
schinenprogramm ist natürlich auch Quassi (Quasi-Assem- 
bler) nicht gefeiht. Deshalb noch mal der Tip: Erst abspei- 
chem. dann starten. Aber hier könnte man ja im reservierten 
Speicher -oberhalb 64900 noch eine Absturzroutine unterbrin- 
gen. die das Schlimmste verhindert. Solche Routinen mit ein 
paar Bytes Länge gibt es genügend. 


2 


PRINT AT 2,0; "Kommandos: " ; AT 4,4; 
a aus b Zeilen";AT 6,4;"xx 
Lade Programm " ; AT 8,4; "g 


”x (a) , (b) Loesche von Adresse 
Loesche ganzes Prg.";AT 7,4; 
Starte Programm ab 


"1 


Startadresse" 

3 PRINT AT 10,4; "i <a) ,b$ Schiebe ab Adresse 
T 12,4; "r (a) , (b) Berechne relati- 

14,4; "p Drucke 

4 PRINT AT 16,4; "v(a) ,b$ Verbessere Adresse 

T 18,4;"s Abspeichern" ; AT 21,0;"Bitte eine 


a b$ ein";A 
Sprung von a nach b";AT 
ganzes Programm aus" 

a mit b$";A 
Taste druecken": PAUSE 


5 

10 

15 

17 

19 

20 
Tü 
21 
22 
25 

30 

31 

32 

33 

34 

35 

36 


CLS : PRINT AT 0,0;"Ram -frei bis 64900" 

INPUT "Wieviel Bytes -fuer das Programm reservieren? ";ram 
LET ramt=64900-ram: CLEAR ramt-1 
LET ramt=PEEK 23730+256*PEEK 23731 
PRINT AT 0,0;"Ramtops ";ramt; 

INPUT "Startadresse? "; start: IF start<=ramt OR start >64900 THEN 
20 

GO SUB 5025 


LET zz=0: LET prog=0: LET z-O: LET pos-Os 
PRINT AT 3,2; "Adr Hex-Inhalt" 

GO SUB 300 
LET adr=start 

LET v ( 1 ) =500 : LET v ( 6 ) =400 
LET v ( 16) =600 s LET v(3)=800 
LET v< 10) =1100: LET v<12)=900 
LET v ( 13) =1200: LET v(14)=1500 
LET v ( 18) =700 


LET h$=" " : DIM v(18) 


40 PRINT AT pos+5, 1 ; adr 

42 INPUT "Hex-Eingabe: ";i$ 

47 IF CODE i $ ( 1 > <48 OR CODE i*<l>>122 THEN GO TO 40 

50 LET 1=0: LET b=LEN i$ 

55 LET 1=1+1 

57 IF 1 >b THEN GO TO 70 

60 IF i $ ( 1 > < > " " THEN G0 T0 55 

65 LET i*=i*< TO l-l>+i$<l+l TO ): GO TO 57 

70 IF CODE i $ ( 1 ) >102 THEN GO TO 9000 

72 IF b/2<>INT (b/2) THEN GO TO 40 

75 LET i$=i$+"##" 


G 
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80 LET h$=h$< TO 2*z ) +i $+h$ ( 2*z + 1 TO ) 

90 GO SUB 310 
95 LET x$="" 

100 FÜR g=l TO LEN \*/2 

105 LET x$=x$+i $ (2*g-l TO 2*g)+“ " 

110 LET z=z+l : NEXT g 
195 PRINT AT pos+5,7;x* 

200 LET pos=pos+l 

210 LET adr=adr+g-2 

250 IF adr< 64900 THEN GO TO 290 

255 PRINT : PRINT " Adresse zu gross, bitte neue Startadresse einge 
ben.Nach Laden des Programms mit CLEAR neuen Ramtop setzen!" 

260 INPUT "Neue St ar tadr esse : "j start 

265 LET adr=start: GO SUB 5025: GO SUB 1100 

290 GO SUB 300: GO TO 40 

300 IF pos >=16 THEN LET zz=0: GO SUB 5100 

305 PRINT AT pos+5,0; INK 2; FLASH 1;">": RETURN 

310 PRINT AT pos+5,0;" " 

315 RETURN 

400 LET h$=h#+"c9##" : LET z=z+2 
405 LET sp=star t- 1 : LET m=-l 
410 LET sp=sp+l 

415 LET m=m+2: IF m>LEN h$ THEN LET prog=l: RETURN 
420 IF h$(m>="#" THEN GO TO 415 

425 POKE sp , 16* (CODE h$ (m) -48-39* (h$ (m) >"9" )) +CODE h$ <m+l ) -48-39* (h$ <m+ 
1 ) >"9" > 

430 GO TO 410 

500 IF prog=0 THEN PRINT AT 21,9;"Kein Programm!": PAUSE 50: RETURN 

505 CLS : LET ergebnis=USR start 
510 GO SUB 5025: RETURN 
600 IF LEN i$<2 THEN RETURN 
605 GO SUB 8000 

620 IF ad<0 OR ad+star t >=adr THEN RETURN 

625 LET i = 1 : LET a=-l 

630 IF h*(2*i><>"#" THEN LET a=a+l 

635 IF a=ad THEN LET h$=h$( TO 2*i-2)+i$( TO 2)+h$(2*i+l TO ) : GO TO 6 
45 

640 LET i=i+l: GO TO 630 
645 LET z z=l: GO SUB 1100 
650 RETURN 

700 IF LEN i$<2 THEN RETURN 

705 IF i$<2)="x" THEN GO SUB 5305: LET adr=start: GO TO 22 
710 GO SUB 8000: IF ad<0 OR ad+start >=adr THEN RETURN 
715 LET gg=l: LET du=VAL i$(l) 

717 LET i =1 : LET a=-l 

720 IF h*(2*i )<>"#" THEN LET a=a+l 

725 IF a=ad THEN LET cc=i : GO TO 740 

730 LET i-i+1* GO TO 720 

740 LET i=i+l 

745 IF hS <2*i ) =" #" THEN LET h$=h$( TO 2*cc-2) +h# ( 2*i + 1 TO ) : GO TO 755 

750 GO TO 740 
755 LET z=z-i+cc-l 

760 IF ggCdu THEN LET gg=gg+l: GO TO 717 
765 IF h$ (LEN h#)<>"#" THEN LET h*=h$+ " ## " 

770 LET zz=l : GO SUB 1100: RETURN 
800 IF LEN i$<2 THEN RETURN 
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THEN RETURN 


a=a+l 


LET z=z+LEN i*/2+l: LET 


,"+CHR# <x+4B+39* (x >9) ) +CHR* (y+48 


805 GO SUB 8000 
807 IF ad<0 OR ad+start>=adr 
810 LET i =1 : LET a=-l 
815 IF h$ (2*i )<>"#" THEN LET 
820 IF a=ad THEN GO TO 840 
825 LET i=i+l: GO TO 815 

840 LET h*=h*< TO 2*i-2> +i <2*1 -1 TO ): 

zz=l : GO SUB 1100: RETURN 
900 IF LEN i$<2 THEN RETURN 

GO SUB 8000 . _ 

LET ad=ad+start : LET add=VAL i*: LET a=add-ad-2 

IF ad >adr OR add>adr THEN RETURN 
IF a<-128 OR a>127 THEN RETURN 
IF a<0 THEN LET a=a+256 
LET x=INT (a/ 16) : LET y=a-16*x 
LET ad=ad+l: LET i$="v"+STR* ad- 
+39* (y >9) ) 

935 GO SUB 9000: RETURN 

IF zz=l THEN GO SUB 5305: GO TO 1105 

GO SUB 5300 

LET kl=0: LET adr=start: LET pas-0 

LET b=a: IF a>=LEN h*/2 THEN GO SUB 300: RETURN 
LET a=a+l : IF h$(2*a>="#" THEN GO TO 1117 
IF pos>=16 THEN GO SUB 5300 
LET kl=kl+l: GO TO 1113 

1117 PRINT AT pos+5 , 1 ; adr ; " " ; : LET x*-h* (2*b+l TO +*a 
1120 FOR q=l TO LEN xt/2: PRINT x*<2*q-l TO 2*q) + 

LET adr=adr+kl: LET pos=pos+l: LET kl-0 

■!»*: IF LEN v*>!0 THEN GO TO 1200 qq 

INPUT "Speichern von-bis? ,aa,oo. 

TO 1205 

1210 SAVE vtCODE aa,bb-aa+l 
5025 PRINT AT 1 , 0 ; "Progr ammber ei ch : 
resse: start: RETURN 

5100 GO SUB 5305 _ 

PRINT AT pos+5, l;Adr-g+2; " ";x»: LET pos-pos+1 

RETURN 

PRINT AT 21,9; "Taste druecken": PAUSE 0 
PRINT AT 21,9; " 

FOR 1=5 TO 21: PRINT AT 1,0;" 


905 

910 

912 

915 

920 

925 

930 


1100 
1 102 
1 105 
1110 
1112 

1113 

1114 

1 1 15 


1 125 
1 130 
1200 
1205 


NEXT q 


" ; Ramt+1 ; ; 64900; AT 2,0; "Startad 


5110 

5120 

5300 

5305 

5310 

1 

5315 

5320 

8000 

8010 

8015 

8017 

8020 

8025 

9000 

9010 

9999 


": NEXT 


LET pos=0 
RETURN 

LET x$=i$<2 Tü ): LET sr=l 
LET sr=sr + 1 : IF x*<sr>="," 

IF sr >LEN x* THEN RETURN 
GQ TO 8010 

LET i t=xl (sr+1 TO ): LET ad=VAL 
RETURN 

GO SUB v (CODE i$(l)-102> 

GO TO 40 

SAVE "Quassi" LINE 1: GQ TO 9999 


THEN GO TO 8020 


xf( TO sr-1 ) -start 


;!: :!= ^ 
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CPU-Test 


SOFTWARE-TEST 
CPC 464: 

1. FOREST AT WORLD’s END 


Der CPC-464 ist wie geschaf- 
fen für gute Graphik-Adven- 
ture. er hat einen großen Um- 
fang an Memory-Platz und 
gute Graphik-Eigenschaften. 
Die Graphik allein macht 
aber noch kein gutes Spiel, 
richtige Adventure-Spieler 
benötigen einen ausführli- 
chen Text, der ihre Phantasie 
anregt. 

In FOREST AT WORLD’s 
END hat man alles, die Gra- 
phik sorgt für die richtige At- 
mosphäre, der Text für die 
Spannung. Und man wird 
schon beim Einladen auf die 
Folter gespannt, wie lange es 


| denn wohl dauert. Gute Gra- } 
phik benötigt einen umfang- ' 
reichen Speicherplatz. 

Nicht alle Orte im Adventure 
haben ein Bild, aber dort, wo 
j es erscheint, ist es großartig. 
Die Bilder wurden von Terry 
Greer entworfen, ein Meister j 
j in der Computer-Graphik, 
j Man darf sich diesen Namen 
j merken, er hat wirklich alle j 
Möglichkeiten des CPC 464 
ausgenutzt. Die Bilder wer- 
den vom Computer gespei- 
chert und bei Bedarf schnell 
auf den Bildschirm gezeich- 
i net. 

i Die meisten modernen Ad- 


venture nehmen auch lange 
Sätze an. Die Routine, mit 
der das geschieht, wird PAR- 
SER genannt. Wie gut der 
PARSER ist, bestimmt die 
Spielqualität und den Spiel- J 
witz. FOREST AT 
WORLD's END hat noch 
keinen ausgereiften PARSER 
und ist daher in seinem Wort- 
schatz beschränkt. Das führt | 
manchmal zu langer Suche [ 
nach dem passenden Wort, | 
was bei vielen Adventure- 
Spielem zum Reiz des Spiels 
gehört. 

Das Kommando „to get into 
the boat“ ist „climb into 


boat“. „Enter boat“, „go 
boat“, Jump into boat“ usw. 
werden nicht angenommen. 
Hier verbraucht man viel 
Zeit, um herauszufinden, 
welche Kommandos das Pro- 
gramm annimmt. Ein großer 
Wortschatz benötigt einen 
großen Platz an MEMORY 
und um bei der Wahrheit zu 
bleiben. FOREST AT 
WORLD's END hat eine 
Vielzahl gespeichert. 

In Fachgeschäften oder im 
Versandhandel für 24,95 DM 
erhältlich. 


CPC 464: 

2. GHOULS 


SCSE vertreibt 
Panasonic-Lauf- 
werkspalette 


Dieses Spiel befaßt sich, wie 
der Name sagt, mit Geistern. 
Gespenstern und Dämonen. 
Im Stil ist es vergleichbar mit 
dem bekannten MAN1C MI- 
NER und mit ROLAND IN 
TIME. Und da es eine gute 
Graphik hat, ist es sehr ver- 
gnüglich zu spielen und dabei 
mit ausreichenden Schwierig- 
keitsgraden versehen. 

Als PAC-MAN-Spieler müs- 
sen Sie viel laufen und auf 
hohe Plattformen springen 
oderauf niedrigere zurückfal- 
len. Damit sind noch nicht 
alle Schwierigkeiten genannt. 
Denn böse Geister wollen 
verhindern, daß Sie das Haus 
erreichen. Sie starten irgend- 
wann über Ihnen und versu- 
chen, sich unbemerkt an/u- 
schließen. Verhindern Sie 
das, sonst ist Ihr Leben ver- 
wirkt. 

Immerhin beginnen Sie mit 
fünf Leben! 


In halber Höhe des Bild- 
schirms ist ein goldener Ring. 
Wenn Sie diesen erreichen, 
bevor der Geist Sie erreicht. 

; werden alle Geister auf dem 
Bildschirm zerstört und man 
kann seine Aufgabe fortset- 
zen. Denn die Zeit ist auch 
limitiert und wenn Sic abge- 
laufen ist. haucht Ihre Spielfi- 
! gur - ihr Leben aus. 

| Sollte es Ihnen nach einiger 
Übung gelingen, alle Gefah- 
ren zu meistern und das Spie- 
lende gesund und munter - 
■ bis auf den überstandenen 
Spielstreß - zu erreichen, so 
können Sie sich in eine HI- 
SCORE-Tabelle eintragen 
und damit möglicherweise 
die Familienehre retten. 

Dies ist ein sehr gutes Spiel 
und es kann Sie für Stunden 
gefangen halten. Für DM 
i 24,95 in guten Fachgeschäf- 
ten erhältlich. Hersteller: Ml- 
CROPOWER 


Die 3.5 Zoll- und 5 V* Zoll- 
Laufwerks-Familie von Pa- 
nasonic wird von der SCSE 
GmbH in Aschafienburg ver- 
trieben. 

Die 3,5 Zoll-Laufwerke sind 
in drei Ausführungen mit 250 
kB. 500 kB und einem Mega- j 


j byte lieferbar. 

Bei den 5 V* Zoll- Laufwerken 
stehen zwei Versionen zur 
Verfügung: Ein Laufwerk ist 
mit 500 kB bei 48 tpi liefer- 
bar, das andere Laufwerk ist 
wahlweise für 1.0 oder 1.6 
Megabyte lieferbar. 
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Dokumentation von 
Systemvariablen 

Für den ZX Spectrum 


| 255 abgespeichen werden, 
deswegen werden dann die 
Werte in zwei Bytes aulgc- 
' teilt, die dann in zwei Adres- 
sen gespeichen werden. Dies 
■ geschieht mit den Befehlen 
PORE a.w-256*INT 

(w/256): POKE a+I.INT 

(w/256). Die Wcne (w) kön- 
nen mit PRINT PEER 
a+256*PEEK(a+l) wieder 
! ausgelesen werden. Auf diese 


Die System variablen sind die 
wichtigsten Speicherzellen im 
ZX Spectrum überhaupt. Sie 
enthalten die Informationen, 
die das System zum Verwal- 
ten aller Funktionen. Spei- 
cherteile und anderer Anwen- 
dungsmöglichkeilen braucht. 
Wenn der Programmierer sie 
vollständig beherrscht und 
die Möglichkeiten kennt, 
kann er seine BASIC-Pro- 
gramme um einiges verbes- 
sern und vervollkommnen. 
Aber sie können nicht nur 
dem BASIC-Programmierer. 
sondern gerade auch dem 
Maschinensprache- Program- 
mierer nützen, da dieser im- 
mer wieder die ROM-Routi- 
nen verwendet und die Sy- 
stem variablen sozusagen die 
Brücke dahin sind. 

Zunächst einige Grundkennt- 
nisse. die nötig sind, um zu 


verstehen, was die „System - 
variablen“ eigentlich sind 
und wie man damit arbeitet: 
Der Speicher des ZX Spec- 
trum besteht aus 65536 Spei- 
cherzellen. die von 0 bis 
65535 durchnumeriert sind. 
Diese Nummern nennt man 
Adressen. Jede Adresse kann 
ein Byte. d. h. eine ganze Zahl 
von 0 bis 255 speichern. Man 
unterscheidet im allgemeinen 
zwei Speichertypen: 

Das ROM (read-only-memo- 
ry = Nur-Lese-Speicher) ent- 
hält feste Werte, die nicht ge- 
ändert werden können. Also 
können aus dem ROM nur 
Werte gelesen werden. Beim 
ZX Spectrum reicht das 
ROM von der Adresse 0 bis 
16383. In diesem Speicher 
befindet sich ein Programm, 
das die BASIC-Befehle in die 
sogenannte Maschinenspra- 
I che umwandelt, die der Com- 


puter versteht. Dieses Pro- 
gramm nennt man „Interpre- 
ter". 

Das RAM (random access 
memory = Frei-Benutzbarer- 
Speicher) wird beim ZX 
Spectrum zu vielen verschie- 
denen Dingen verwendet, be- 
ginnt bei der Adresse 16384 
und endet bei der Adresse 
. 65535. (Beim 16R Spectrum 
endet er bei 32767.) Aus die- 
sen Speicherzellen können 
ebenfalls Bytes gelesen wer- 
den, aber es können auch 
neue Zahlen abgespeichert 
werden. 

Im B ASIC gibt es zwei Befeh- 
j le. die mit Speicherzellen ar- 
beiten: PORE Adresse. By te 
! schreibt einen Wert in die mit 
l der Adresse angegebenen 
Speicherstelle. PRINT PEER 
| Adresse ergibt den Inhalt der 
adressierten Speicherzelle. 
Oft müssen größere Werte als 


1 Weise kann man Zahlen von 
0 bis 65535 abspeichern. 

| Als „Systemvariablen" be- 
zeichnet man den Speicher- 
bereich. den der Interpreter 
beim Arbeiten mit Adressen 
und Zahlen benutzt. Die Sy- 
stemvariablen stehen im 
RAM von Adresse 23552 bis 
23733. können also vom Pro- 
\ grammierer verändert wer- 
den. Dadurch ergeben sich 
vielfältige und verschiedenste 
Möglichkeiten, seine BAS1C- 
Programme zu erweitern und 
ihnen den „letzten Schliff' zu 
s geben. Die System variablen 
enthalten die Informationen, 
die der Computer zum Ver- 
walten aller seiner Funktio- 
nen. Speicherteile und ande- 
rer Anwendungsmöglichkci- 
ten braucht. Im folgenden 
' also eine vollständige und 
ausführliche Liste der Sv- 
stemvanablen. 


Die „Systemvariablen“ 


Adressen Bedeutung 


23552-23559: Speicherplätze, die der Interpreter beim Lesen 
der Tastatur benutzt. Sie sind in zwei Blöcke 
aufgeteilt, da manchmal zwei Tasten zugleich 
gedeutet werden müssen, wenn zum Beispiel 
Großbuchstaben eingegeben werden. Das erste 
Byte gibt an. ob eine Taste gedrückt wurde. Das 
zweite Byte ist ein Wiederholungszähler. Das 
dritte Byte gibt die Wartezeit vor Beginn der 
Wiederholung an. Das vierte Byte ist der Rode ; 
der gedrückten Taste. Die nächsten v ier Bytes 
haben entsprechende Aufgaben für eine zweite 
Taste. Die folgende Sy stem variable ist aller- 
dings besser zu verwenden. 

23560: Hier wird der Rode der zuletzt gedrückten 

Taste bzw. Tastenkombination gespeichert. So 1 
kann man also feststcllen, ob während einer 
langen Rechenroutine eine Taste gedrückt wur- 
de. obwohl bei der Abfrage keine Eingabe er- 
folgt. Dazu muß man in diese Adresse vorher 0 
poken. 

Übrigens kann man sich durch folgendes Pro- | 
gramm eine komplizierte Repeat-Routine er- 
sparen: 


10 PORE 23560,0 

20 1F PEER 23560 THEN PRINT CHRS 
PEER 23560: GO TO 10 
30 GO TO 20 

Diese Routine hat im Gegensatz zu 
10 PRINT INREVS. 

20 GOTO 10 

den Vorteil, daß zuerst eine Weile gewartet 
wird und dann die Taste nicht zu schnell wie- 
derholt w ird. ( Dies ist übrigens auch in Maschi- 
nensprache möglich.) Mit den beiden nächsten 
Sy stem variablen können diese Wartezeiten 
verändert werden. 

23561 : Hier steht die Zeit, wie lang eine Taste gedrückt 

werden muß, damit sie wiederholt wird, diese 
beträgt normalerweise 35. (Angabe in 50stel 
Sekunden.) Die Zahl 0 entspricht hier I5 % 
Sekunden. 

23562: Hier steht die Zeit, die zwischen den Wieder- 

holungen der Taste gewartet wird, diese beträgt 
normalerweise 5. (Angabe in 50stel Sekunden.) 
Die Zahl 0 entspricht auch hier Sekunden. 
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23563/23564: Adresse bei der Bearbeitung von selbstdefinier- 
ten Funktionen. 

23565-23567: Speichert unwichtige Farbinformationen. 

23568-23605: Hier werden Informationen von OPEN # und 
CLOSE # gespeichert. Diese Befehle sind übri- 
gens im Gegensatz zum Handbuch auch ohne 
Microdrive zu benutzen. Normalerweise geht 
jede PRINT- oder LIST- Anweisung auf den 
Bildschirm. Gibt man allerdings Print #0 oder 
#1 ein, wird der Text auf die 23ste Zeile ge- 
druckt, wo normalerweise die Eingabe erfolgt. 
(Darüber mehr bei Adresse 23659.) PRINT #2 
ist dasselbe wie PRINT und PRINT #3 dassel- 
be wie LPRINT. Durch OPEN # kann man die 
Funktionen von #0 bis #15 ändern. Hat man 
zum Beispiel ein Programm für den Drucker 
geschrieben und will es zunächst auf dem Bild- 
schirm ausprobieren, braucht man nur OPEN 
#3, „s" einzugeben und jeder LPRINT-Befehl 
wird auf dem Bildschirm ausgegeben, „s“ be- 
deutet Ausgabe auf den oberen Bildschirmteil, 
„k" auf den unteren und „p“ auf den Drucker. 
CLOSE #3 stellt den Ausgangszustand wieder 
her. 

23606/23607: Diese Speicherplätze ermöglichen einen völlig 
neuen Zcichensatz, denn hier steht die Adresse, 
an der für jeden Buchstaben und je^ies Zeichen 
8 Bytes abgelegt sind, genau wie bei den selbst- 
definierten Graphikzeichen. Diese Systemva- 
riablc zeigt auf den Anfang der Tabelle. Da 
aber die Zeichen CH RS 0 bis CH RS 31 keine 
druckbaren Zeichen sind, fängt die Tabelle ei- 
gentlich 32*8 Bytes = 256 Byte später an. Dort 
sind dann die 8 Bytes für das Leerzeichen, dann 
folgt das Ausrufezeichen, die Anführungsstri- 
che usw. Versuchen Sie mal POKE 23606.8. 
Dies verschiebt den Zeiger um 8 Byte = 1 
Zeichen. Läßt man diese Variable ins RAM 
zeigen, kann man dort seinen selbst entworfe- 
nen Zeichensatz ablegen. 23606 enthält norma- 
lerweise 0 und 23607 die Zahl 60. 

23608: Länge des Warntons, wie er zum Beispiel beim 

Drücken einer Taste nach CLEAR 23850 er- 
tönt. Normalerweise 64. 

23609: Länge des Tastaturpieps. Normalerweise 0. 

23610: Hier werden Fehlcrnummern gespeichert. 255 

= OK; 0 = NEXT without FOR; 1 = Variable 
not found usw. Versuchen Sie POKE 23610,0. 
Dies kann man aber leider im Programm nur in 
der letzten Zeile verwenden. Allerdings 
funktioniert es dafür in Maschinensprache um 
so besser: Die Systcmvariable wird mit der 
gewünschten Fehlernummer geladen und dann 
einfach RST 8 ausgeführt. 

2361 1-23616: Zahlen und Adressen, mit denen der Interpre- | 
ter arbeitet. 

23617: Setzt den Modus des Cursers: 0 = L-Mode; 1 = 

E-Mode; 2 = G-Mode. (C-Mode siehe Adresse 
23658.) Poked man höhere Zahlen in diese 
Adresse, erscheinen einige recht merkwürdige 
Curser-Arten. die sich effektvoll in INPUTs ' 
verwenden lassen. 

23618-23620: Diese drei Adressen ermöglichen einen Sprung 
zu einem beliebigen Befehl in einer Zeile und 
nicht nur zum ersten, w ie bei GO TO. Auch die 


Befehle nach THEN können aufgerufen wer- 
den. Um solche Befehle anzusprechen, poked 
man zuerst die Zeilennummcr in die Adressen 
23618/23619 und dann in die Adresse 23620 
die Stelle des Befehls in der Zeile. Der erste 
Befehl in der Zeile hat die Nummer 1, der 
nächste Befehl nach einem oder einem 
„THEN" die Nummer 2 usw. Existiert kein 
Befehl an der angegebenen Stelle, wird die Feh- 
lermeldung „Statement lost" gedruckt. 

23621-23623: Zeilennummer und Befehlsstelle des gerade be- 
arbeiteten Befehls. 

23624: Diese Variable w ird von jedem BORDER-Be- 

fehl gesetzt, aber kann auch benutzt werden, 
um die Farben des unteren Bildschirmteils zu 
setzen. Die Zahl berechnet sich aus 
128* FLASH + 64 BRIGHT + 8*PAPERfar- 
be + INKfarbe. Damit sind auch verschieden- 
farbige INPUTs möglich. Nach jeder Eingabe 
hat der Rand die gleiche Farbe, wie die hier 
gespeicherte PAPER-Farbe richtet sich aber 
nicht nach FLASH und BRIGHT. 

23625/23626: Hier steht die Zcilennummer. die bei EDIT 
editiert wird. 

23627/23628: Hier steht die Anfangsadresse des Variablcn- 
speichers. Systemvariablen, die den Speicher- 
aulbau festlegen, sollten vom Programmierer 
nicht verändert werden, da der Interpreter 
dann nicht mehr richtig arbeiten kann. 

23629/23630: Adresse einer gerade verwendeten Variable. 

23631/23632: Anfangsadresse der Kanalinformationen. 

23633/23634: Adresse einer verwendeten Kanalinformation. 

23635/23636: Anfangsadresse des Basicspeichers, welcher 
folgendermaßen aufgebaut ist: Für jede Zeile 
zunächst zwei Bytes, die die Zeilennummcr 
angeben. Achtung: Diese beiden Bytes stehen 
ausnahmsweise in vertauschter Reihenfolge! 
(Zuerst das höherwertige und dann das nieder- 
wertige.) Dann folgen zwei Bytes, die die Länge 
des Zeilentextes angeben. (Wieder in der übli- 
chen Reihenfolge.) Danach stehen die Kodes 
der Befehle und Zeichen und am Schluß der 
Zeile steht 13 (= ENTER). Übrigens nach jeder 
dezimalen Zahl im Text steht 14, gefolgt von 5 
Bytes, die diese Zahl in ihrer binären Form 
angeben, da der Computer nur damit arbeiten 
kann. (Diese 6 Bytes werden beim normalen 
LISTing verschluckt.) 

23637/23638: Gibt die Adresse der Basiczeile an, die der 
gerade bearbeiteten folgt. 

23639/23640: Diese Adresse zeigt auf das erste Byte, nach der 
zuletzt gelesenen „DATA-Zahl“. In dieser 
Adresse steht dann also entweder 44 (= Tren- 
nungskomma) oder 13 (= Ende der Zeile). 
Wenn noch kein READ verwendet wurde, er- 
gibt diese Systemvariable die letzte Adresse 
vor dem Basicspcicher, ist also um eins kleiner 
als die in 23635/23636 abgespeicherte Zahl. 

2364 1 /23642: Ab der hier angegebenen Adresse steht der Text 
der Zeile, die gerade eingegeben wird. 

23643/23644: Adresse des Cursers im vorherigen Speicherbe- 
reich. Bei einem INPUT steht in dieser Adres- 
se, an welcher Stelle im eingegebenen Text der 
Curser zuletzt stand. (Am Anfang = 1 usw.) 

23645/23646: Adresse des Zeichens, das beim Ausfuhren ei- 
ner Zeile als nächstes bearbeitet wird. 
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23647/23648: Adresse des Zeichens nach einem „?“-Curser. 

23649/23650: Anfangsadresse des INPUT-Speichers. 

23651/23652: Anfangsadresse des Arbeitsspeichers des 
ROM-Rechenteils (Kalkulator). 

23653/23654: Anfangsadresse des Speichers, der zur Zeit 
keine besondere Aufgabe hat. also vom Pro- 
grammierer frei verfügbar ist. (Dazu auch 
23730/23731.) 

23655: Speicherstelle des Kalkulators (des ROM- 

Rechners). 

23656/23657: Adresse, an der der Kalkulator bis zu 6 Flies- 
kommazahlcn zwischenspeichert. Normaler- 
weise 23698. 

23658: Diese Variable ermöglicht das Umschalten auf 

den „C"-Curser (POKE 23658,8). Um den nor- 
malen Curser wieder zu erhalten, muß man 
diese Adresse auf 0 setzen. 

23659: Angabe der Zeilenzahl des unteren Bildschirm- 

teils. Diese Speicherzelle wird von jeder Fehl- 
meldung und jedem INPUT auf 2 gesetzt (Zeile 
22 ist leer und Zeile 23 wird bedruckt). Man i 
kann die 22ste Zeile ganz normal mit PRINT 
AT 22,0; benutzen, wenn in diese Adresse 1 
gepoked wird. Man kann aber auch den IN- 
PUT auf eine andere Zeile setzen, indem man i 
INPUT AT n.0; AT y,x;a$ eingibt, n+1 ist die 
Anzahl der unteren Zeilen, y gibt die Zeile des 
unteren Bildschirmteils an. dessen Zeilen hier 
von 0 bis n durchnumeriert sind, x gibt schließ- 
lich noch die Spalte an. Enthält diese Speicher- 
zelle 0 oder eine Zahl, die größer ist als 24, darf j 
nicht auf den unteren Bildschirmteil zugegrif- 
fen werden, da sonst der Interpreter nicht wei- 
terarbeitet und keine Taste mehr annimmt j 
oder einfach NEW ausgeführt. (Dies ist also gut 
als BREAK-Schutz in einem Basicprogramm 
zu verwenden, da die BREAK-Meldung ja 
auch dorthin gedruckt wird.) Nun kann man 
aber auch auf den unteren Bildschirm drucken: 
PRINT #1; AT y.x; Die Zeile errechnet sich 
wieder von der obersten Zeile des unteren Bild- 
schirms. die man ja mit dieser Systemvariable 
verändern kann. Wurde der untere Bildschirm 
noch nicht verwendet, wird PRINT #l;a$ au- | 
tomatisch unten AT 1.0; gedruckt. Ansonsten 
kann man PRINT #1 genauso wie PRINT 
verwenden. INPUT ““ löscht den unteren Bild- 
schirm und setzt diese Variable wieder auf 2. 

23660/23661: Gibt die Zeilennummer der obersten Zeile 
beim automatischen Listing an (nach der Ein- 
gabe von ENTER ohne LIST). 

23662/23663: Zcilennummer in einem Basicprogramm. zu 
der CONTIN'UE nach einem BREAK springt. 

23664: Befehlstcllc in der Zeile, die in der vorherigen 

System variable angegeben wurde, zu dem 
CONTINUE nach einem BREAK springt. 

23665: Zwischenspeicher des Interpreters. 

23666/23667: Wird bei der Bearbeitung von Strings benutzt. 

23668/23669: Zeiger für eine Tabelle im ROM. mit der der 
Interpreter die Syntaxprüfung durchführt. 

23670/2367 1 : Diese Speicherzellen werden von der Zahl hin- 
ter RANDOMIZE gesetzt. Bei RANDOMIZE 
oder RANDOMIZE 0 werden die Inhalte der 
Speicherzellen 23672/23673 genommen. 


23672-23674: Diese Speicherzellen enthalten beim Einschal- 
ten des Gerätes alle 0. 23672 wird alle 50stel 
Sekunden um eins erhöht. Wenn diese Adresse 
255 erreicht, wird sie auf 0 gesetzt und 23673 
um eins erhöht. Das gleiche gilt bei 
23673/23674. Die Einschaltzeit berechnet sich 
also mit PRINT INT (( PEEK 23672+256* 
PEEK 23673+65535* PEEK 23674)/50). Dieser 
Zählvorgang wird allerdings von jedem BEEP 
und den Cassettenroutinen unterbrochen. 

23675/23676: Enthält die .Anfangsadresse der selbstdefinier- 
baren Graphikzeichen. W enn man zum Bei- 
spiel seinen 16K Spectrum auf 48K erweitert 
und Graphikzeichen vorher mit CODE auf 
Cassette abgespeichert hat. braucht nur POKE 
23676.127 eingegeben zu werden und man hat 
die Graphikzeichen wieder zur Verfügung. Au- 
ßerdem kann man hiermit im Programm zwi- 
schen mehreren selbstdefinierten Graphikzei- 
chensätzen umschalten und ist nicht mehr auf 
die „wenigen" 21 beschränkt. 

23677: X-Koordinate des zuletzt gePLOTeten Punk- 

tes. 

23678: Y-Koordinate des zuletzt gePLOTeten Punk- 

tes. 

23679-23683: Hier werden Positionen bei der Ausgabe ge- 
speichert. 

23684/23685: PRINT-Position im Bildschirmspeicher. 

23686/23687: PRINT-Position des unteren Bildschirmteils 
im Bildschirmspeicher. 

23688-23691: Wird bei der Berechnung von PRINT-Positio- 



nen verwendet. 

23692: 

Diese Speicherzelle gibt an. wie oft der Bild- 
schirm um eine Reihe nach oben geschoben 
werden soll, bevor nach „scroll?“ gefragt wird. 
0 heißt hierbei 256mal. Übrigens kann man 
einen schnellen Bildschirmscroll mit RANDO- 
MIZE USR 3582 erreichen, ohne etwas zu 
drucken. Da RANDOMIZE sich aber auf Zu- 
fallszahlen auswirkt, ist es manchmal zu emp- 
fehlen zum Beispiel LET u=USR 3582 oder IF 
USR 3582 THEN zu verwenden. 

23693: 

Hier werden die Farben gespeichert, die mit 
den Farbbefehlen gesetzt wurden: 128*FLASH 
+64*BRIGHT +8*PAPERfarbe +INKfarbe. 
Mit einem POKE kann man sich also mehrere 
Befehle ersparen. 

23694: 

Außergewöhnliche Farbinformationen: 

128. wenn FLASH 8 
+ 64. wenn BRIGHT 8 
+ 56. wenn PAPER 8 
+ 7. wenn INK 8 

23695: 

Enthält bei der Ausführung von PRINT zu- 
nächst das gleiche wie 23693, und wird dann 
nach den Farbbefehlen im PRINT geändert. 

23696: 

Enthält bei der Ausführung von PRINT zu- 
nächst das gleiche wie 23694. und wird dann 
nach den Farbbefehlen im PRINT geändert. 

23697: 

Weitere Farbinformationen: 

192. wenn PAPER 9 
+ 48. wenn INK 9 
+ 12. wenn INVERSE 1 
+ 3. wenn OVER 1 

Für Maschinencode-Programmierer: BIT 


CPU 16 


7/85 


CPU-Utility 


23698-23727: 


23728/23729: 


23730/23731: 


23732/23733: 


7=PAPER 9. BIT 5=INK 9. BIT 3=INVERSE 1, 
BIT l=OVER 1. Die anderen Bits können im 
PRINT verändert werden. 

Normalerweise benutzt der Kalkulator diese 
Speicherzellen, um bis zu sechs Fließkomma- 
zahlen zwischenzuspeichem. die je 5 Bytes ver- 
brauchen. (Dazu auch 23656/23657.) 

Wenn ein externes Gerät an den ZX Spectrum 
angeschlossen ist und ein Unterbrechungssi- 
gnal sendet, wird NEW ausgeführt. Wenn in 
diesen Speicherzellen andere Werte als 0 ste- 
hen. passiert nichts. 

Adresse nach dem letzten Byte des frei verfüg- 
baren Speichers. Der freie Speicherplatz be- 
rechnet sich übrigens aus PRINT 65535-USR 
7962. Mit dieser Formel erhält man den am 
besten gesicherten Wert, da es dasselbe Verfah- 
ren ist. das auch der Interpreter verwendet. 
Adresse des letzten Bytes überhaupt im RAM. 
Beim 16K Spectrum als 32767 und beim 48K 
Spectrum 65535. 


Mailbox- 

Telefo nbuch 

teilweise die Begriffe „wird 
getestet“ und „wird geprüft“. 
Bei Redaktionsschluß lagen 
hier noch keine exakten In- 
formationen vor, deshalb er- 
scheinen in diesen Fällen die 
o. a. Begriffe. 

Für die Rubrik „Bemerkun- 
gen" ist geplant, z. B. den Er- 
öffnungsmodus der Mailbox 
und die Paßwörter etc. sowie 
eine kleine Beschreibung des 
Betriebssystems und des 
Operators einzutragen. 


Bei Wamekes Mail-Telefon- 
buch handelt es sich um ei- 
nen neuen Zubehörartikel der 
Computerbranche. Zur Zeit 
enthält dieses DFÜ-Anbie- 
ter-Verzeichnis ca. 150 ver- 
schiedene Mail-Box-An- 

schlüsse. Für 1986 ist eine 
wesentlich erweiterte Ausga- 
be geplant. 

Zur Benutzung des Buches 
zwei Hinweise: In den Rubri- 
ken „Betriebszeit“ und „Be- 
merkungen“ erscheinen 


Befehlserweiterung des CPC- 

Befehlssatzes 
um einen Box-Befehl 



Dieses Assembler und Basic- 
programm bewirkt eine Be- 
fehlserweiterung des CPC- 
Befchlssatzes um einen BOX- 
Befehl. 


Nach einmaligem Aufruf der 
Maschinencoderoutine kann 
diese gelöscht werden und der 
Befehl befindet sich dann in 
der RSX-Erweiterung im 


RAM. 

Die Parameter des Befehls 
lauten wie folgt: 
x 1 + y 1 — Startposition befin- 
det sich Ecke links unten 


x2 + y2 - Endposition befin- 
det sich Ecke rechts oben. 
Der letzte Parameter-Befehl 
bestimmt die Farbe. 


10 ' ********************************* 

20 •****♦ :BOX BEFEHL FUER CRC ****** 

30 '*X*** M. BANGEMANN 1985 ****** 

40 '********************************* 

50 ' 

60 'BASIC LADER FUER MC PROGRAMM 
70 ' 

80 h=H I MEM 
90 MEMORY 1806F 
100 FOR i =i<8070 TO 180CB 
110 READ x:P0KE l ,x 
120 NEXT 

130 DATA 101 ,179,180,121 ,182, 180, lc3, 1dl , Ibc , 17e , 180 , lc3 , 186 , 180 , 142 , 14f 
140 DAT A IdB , 100 , 100 , 100 , 100 , 100 , If e, 105 , IcO , led , lc6 , Ibb , ld5 , le5 , Idd , 17e , 100 
1 50 DATA led , Ide , Ibb , Idd , 156 , 109 , Idd , 15e , 108 , Idd , 166 , 107 , Idd , 16e , 106 , le5 , ld5 
1 60 DATA Id 5 , led , IcO , Ibb , Id 1 , ld5 , Idd , 166 , 103 , Idd , 16e , 102 , le5 , led , 1+ 6 , Ibb , le 1 
170 DATA Idd , 156 , 105 , Idd , 15e , 104 , ld5 , led , IT 6 , Ibb , Id 1 ,lel , led , If 6 , Ibb ,ld 1 ,lel 
180 DATA led ,1T6, Ibb , lei ,1dl ,lc3,lc0, Ibb 
190 CALL 18070 

200 'Sichern der Befehlserweiterung auf Cassette oder Disc 

210 MODE 2: INK 0,13:B0RDER 13: INK 1,0 

220 LOCATE 1 , 12: PRINT" (D) 1 sc oder (Oassette ?" 

230 a$=INKEY$: IF a$="" THEN 230 
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240 IF a$="D" ÜR a*="d" THEN PRINT"Bitte f ormati erte Diskette einlegen und Taste 

druecken" ELSE 253 
250 CALL &BB18: GOTO 256 
253 ON ERROR GOTO 256 

255 i TAPE • 

256 SAVE"BOX. BIN" ,B, 8.8070, 123 
270 INK 1,1, Os MODE 2:L0CATE 1,12 

280 PRINT" Vor weiteren Eingaben MEMORY "}hj" eingeben !!!" 

290 NEW 


Demonstrationsprogramm 

10 MODE 1 

20 INPUT "Schrittweite" j sc 
30 MODE 0 

40 x 1 =0 s y 1 =0 J x 2=639 s y2=399 
50 FOR durch=l TO 320 STEP sc 


60 IBOX.xl ,yl ,x2,y2, durch/sc 

70 x 1 =x 1+sc: yl=yl+sc: x2=640-x 1 : y2=400-y 1 

SO NEX.T 

90 CALL 8.BB18 

100 CLEARsGOTO 10 


10 

20 

30 

40 

50 

60 

70 

80 


.*************************************** 

;**** RSX - ERWEITERUNG DES CPC ****** 

;**** NACHLADBARER BOX - BEFEHL ****** 

.**** COPYRIGHT 1985 ****** 

;**** MARTIN BANGEMANN NAGOLD ****** 

.*************************************** 

I 

t 

i 


BBDE 


90 SETPEN: 

EQU 

#BBDE 

BBF6 


100 DRAWAB: 

EQU 

#BBF6 

BCD1 


110 LOGEXT: 

EQU 

#BCD1 

BBCO 


120 MOVABS: 

EQU 

#BBC0 

BBC6 


130 ASKCUR: 

EQU 

#BBC6 



140 



8070 


150 

ORG 

#8070 

8070 

017980 

160 

LD 

BC i RSX 

intragen 




8073 

218280 

170 

LD 

HL, KERNEL 

8076 

C3D1BC 

180 

JP 

LOGEXT 

8079 

7E80 

190 RSX: 

DEFW 

TABLE 

807B 

C38680 

200 

JP 

BOX 

807E 

424F 

210 TABLE: 

DEFM 

"BO" 

8080 

D8 

220 

DEFB 

"X"+#30 

8081 

00 

230 

DEFB 

0 

3082 


240 KERNEL: 

DEFS 

4 

8086 

FE05 

250 BÜX: 

CP 

5 

8088 

CO 

260 

RET 

NZ 

8089 

CDC6BB 

270 

CALL 

ASKCUR 

808C 

D5 

230 

PUSH 

DE 

808D 

E5 

290 

PUSH 

HL 

308E 

DD7E00 

300 

LD 

A, (IX) 

8091 

CDDEBB 

310 

CALL 

SETPEN 

8094 

DD5609 

320 

LD 

D, (IX+9) 

8097 

DD5E08 

330 

LD 

E. (IX + 8) 

809A 

DD6607 

340 

LD 

H, (IX+7) 

809D 

DD6E06 

350 

LD 

L, (IX+6) 

80A0 

E5 

360 

PUSH 

HL 

80A1 

D5 

370 

PUSH 

DE 

80A2 

D5 

380 

PUSH 

DE 

80A3 

CDCOBB 

390 

CALL 

MOVABS 

80A6 

Dl 

400 

POP 

DE 

80A7 

D5 

410 

PUSH 

DE 

80A8 

DD6603 

420 

LD 

H, (IX+3) 

ke 
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(Penfaibe setzen 
(Linie ziehen 
(Erweiterung einbinden 
(Grafikcursor setzen 
(Ausgangsposition Cursor 

(MC-Startadresse 

(Box in die Erweiterung e 


;5 Parameter holen 


(Ausgangsposition merken 

(Penfarbe setzen 
(linke untere Ecke (xl) 

(linke untere Ecke (yl) 

;xl yl merken 


;y2 von rechter oberer Ec 
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80AB 

DD6E02 

430 

LD 

L, ( I X + 2 ) 

8 0 AE 

E5 

440 

PUSH 

HL 

8 0 AF 

CDF6BB 

450 

CALL 

DRAWAB 

ly2) 

30B2 

El 

460 

POP 

HL 

8 OB 3 

DD5605 

470 

LD 

D, (IX + 5) 

80B6 

ÜD5EÜ4 

480 

LD 

E, 1 1 X + 4 ) 

80 B0 

DO 

400 

PUCH 

DE 

8 OBA 

CDF6BB 

500 

CALL 

DRAWAB 

2y 2) 

3 0 BEi 

Dl 

510 

POP 

DE 

3 OBE 

El 

520 

POP 

HL 

30BF 

CDF6BB 

530 

CALL 

DRAWAB 

2yl) 

30C2 

Di 

540 

POP 

DE 

8 0C3 

r -p 

550 

POP 

HL 

30C4 

CDFCBB 

560 

CALL 

DRAWAB 

H.sof 

t GENA3.1 

Assembler . 

Page 

2 . 


30C7 

El 

570 

POP 

HL 

30CS 

Dl 

530 

POP 

DE 

80CO 

C3C0BB 

500 

Jp 

MOVABS 

Pass 

2 e r r or s : 

00 



Tatle 

used: 

123 from 

282 



; y 2 merken 

;Linie von (xlyl) nach (x 
: y 2 holen 

;x 2 rechte obere Ecke 


; x2 merken 

;Linie von (xly2) nach (x 


; x 2 holen 
;yl holen 

;Linie von (x2y2) nach (> 

; xl holen 
;yl holen 

; Linie zum Ursprung 


;Cursorausqangs position 
; wiederherstellen 


M 68000-Familie 


Teil 1: Grundlagen und Architektur - Teil 2: Anwendung und 68000- 

Bausteine 


Dieses zweibändige Werk be- 
faßt sich grundlegend mit der 
M 68000-Familie. einer Fa- 
milie von leistungsfähigen 
16/32-Bit-Prozessoren. Der 
Leser findet alle notwendigen 
Informationen über den M 
68000. Angefangen von der 
Entstehungsgeschichte über 
die detaillierte Hardwarebe- 
schreibung bis zu den Adres- 
sierungsarten und dem aus- 
führlichen Befehlssatz. Es 
eignet sich sowohl als Lehr- 
buch als auch als Nachschlag- 
werk. 

ln Band 1 werden die Grund- 
lagen geschaffen und die Ar- 
chitektur (Hard- und Softwa- 
re) mehr oder weniger theore- 
tisch behandelt. Entstehungs- 
geschichte und Zweitherstel- 
ler finden Sie in Kapitel 1. 
Grundlagen über eine micro- 
codierte CPU und die Be- 
schreibung der Pins des 
68000- Bausteines sind in Ka- 
pitel 2 ausführlich dargestellt. 
Wichtige Ausdrücke und De- 
finitionen. die Ihnen in bei- 


den Bänden begegnen wer- 
den. sind gleichfalls in Kapi- i 
tel 2 niedergeschrieben. 
Adressierungsarten und Be- j 
fehlssatz folgen mit sehr vie- ! 
len Beispielen in Kapitel 3 
bzw. 4. Das letzte Kapitel die- 
ses Bandes setzt sich mit den 
68000-Versionen auseinan- 
der - den sogenannten Mas- 
ken. 

Der Band eignet sich unter 
anderem für diejenigen, die 
sich schon eingehender mit 
M 68000 beschäftigt haben. 

In Band 2 findet der Leser 
zusätzliche Informationen 
und praktische Hinweise für 
das Arbeiten mit dem M 
68000. So kommen die 
Software (Kapitel 6: Assem- 
blcrprogrammiertechnik mit 
M 68000-Befehlen) und die 
Hardware (Kapitel 9: Ein 
M 68000-Singlc-Bordsystem) 
auf keinen Fall zu kurz. Die | 
Kapitel 7 und 8 beschäftigen 
sich mit Peripherie-Baustei- 
nen und mit neuen bzw. zu- 
künftigen Mitgliedern der i 


68000-Familie. ln Kapitel 10 j 
wird der VME-Bus beschrie- [ 
ben. 

Beide Bände zusammen ver- 
mitteln über den eigentlichen 
Prozessor hinaus Informatio- 


nen. die von Grundlagen neu- 
er Programmiertechniken 
oder Betriebssysteme über 
Peripherie-Bausteine bis zur 
nächsten Generation der 
68000-Produkte reichen. 
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AUEN ATTACK 

Ein schnelles Weltraumspiel für MSX-Computer 


Geben Sie als erstes die Zei- 
len 340 und 350 sowie die 
Zeilen 2000 bis 2060 ein. Die- 
se Programmzeilen ermögli- 
chen einen ordnungsgemäßen 
Abbruch des Programmes 
sowie die korrekte Ausgabe 
von Fehlermeldungen. 

Zur weiteren Programmein- 
gabe verwenden Sie den Be- 
fehl AUTO 100 und die Zei- 
lennumerierung wird auto- 
matisch richtig vorgegeben. 

In Zeile 1 170 finden Sie eine 
Menge Grafikzeichen, deren 
Eingabe relativ schwierig ist. 
Zur Eingabeerleichterung ist 
jedoch in Zeile 1 180 die Ta- 
stenfolge beschrieben: 
g bedeutet (GRAPH) Taste 
c bedeutet (CODE) Taste 
S bedeutet (SH1FT) Taste 
Danach folgt der Buchstabe 
oder das Zeichen, welches 
ebenfalls gedrückt werden 
muß. 

So bedeutet z. B. [gSM] daß 
die Tasten (GRAPH) 
(SH1FT) und (M) gleichzeitig 
gedrückt werden müssen. 

Nach der Programmeingabe 
starten Sie das Programm 
mittels der Funktionstaste 
(F5). Sie bekommen einen 
Hinweis auf den Bildschirm, 
und müssen einen Augen- 
blick warten, da der Rechner 
4 Grafikseiten zu belegen hat. 
Dann erscheint das Titelbild, 
und die Musik ertönt. 

Die Musik spielt die ganze 
Zeit über, kann jedoch zu je- 
dem Zeitpunkt durch einen 
Druck auf die (SELECT) Ta- 
ste abgestellt werden. Ein er- 
neuter Druck auf (SELECT) 
stellt die Musik wieder an. 
„ALIEN ATTACK" kann 
mit jedem beliebigen Joy- 
stick. oder auch mittels der 
Cursortasten gespielt werden. 
Um auszuwählen womit Sie 
spielen wollen und um das 
Spiel zu starten, drücken Sic 
einfach den entsprechenden 
Aktionsknopf. oder die Leer- 
taste, wenn Sie mittels der 
Cursortasten spielen wollen. 
Die Titelschrift verschwin- 
det. und Ihre Laserkanone er- 


scheint am unteren Bild- 
schirmrand. 

Kurz darauf erscheint auch 
das erste ALIEN, welches Sie 
abschießen müssen. 

Vorsicht, die ALIENs verfol- 
gen Ihre Laserkanone und 
versuchen diese Kanone 
selbst abzuschießen. Das 
Spiel kennt 5 verschiedene 
Arten von ALIENs und hat 6 
Level, wobei sich die Ge- 
schwindigkeit steigert. 

Steuern Sie mittels des Joy- 
sticks (oder Cursortasten) 
Ihre Laserkanone nach rechts 
| oder links. Einen Schuß lösen 
Sie mittels des Aktionsknop- 
fes (oder Leertaste) aus. 

Wenn Sie ein ALIEN getrol- 
j fen haben, so wird es explo- 
dieren, und Ihnen werden, je 
i nach Aggressivität, 10 bis 60 
Punkte gulgeschrieben. 
ALIENs treten immer in 
Wellen auf. Eine Welle be- 
steht aus 4+2*Level ALIENs. 
Das heißt in Level 1 haben 
Sie gegen 6 ALIENs zu beste- 
, hen, in Level 6 müssen Sie es 
mit 16 ALIENs aufnehmen. 
Wenn Sic eine Welle bestan- 
den haben, so kommt eine 
! andere Art von ALIENs ge- 
gen die Sie kämpfen müssen. 
Wenn Sie Level 6 überstan- 
den haben, so wechseln zwar 
die Arten der ALIENs alle 1 6 
Treffer, aber die Geschwin- 
digkeit bleibt. 

Die ALIENs haben die unan- 
\ genehme Eigenschaft auf Ihre 
Laserkanonc zu schießen. 


Anfangs haben Sie 3 Kano- 
nen zur Verfügung (eine im 
Spiel und 2 als Reserve). 

Wird Ihre Kanone von einem 
ALIEN getroffen, so explo- 
diert diese. Wenn alle 3 Ka- 
nonen zerstört wurden, er- 
scheint „GAME OVER" aut 
dem Bildschirm. 

Um ein neues Spiel zu star- 
ten. drücken Sie w ieder einen 
beliebigen Aktionsknopf, und 
das Spektakel geht von vorne 
los. 

ALIEN ATTACK arbeitet im 
32 x 24 Zeichen Textmodus 
(SCREEN 1) und generiert 
die komplette Grafik durch 
Zeichensatz Umbelcgung. 

Die Farben werden mittels 
Eintragungen in die Farbcode-| 
Tabelle erzeugt. 

Dieser „Grafikmodus" er- 
laubt es, bis zu 14 Grafiksei- 
ten zu schreiben, und durch 
Einträge in das VDP Register 
2 zwischen diesen Grafiksei- 
ten umzuschalten. 

ALIEN ATTACK benutzt 
nun lediglich 4 dieser Grafik- 
seiten, zwischen denen ca. 
alle 0.25 Sekunden umge- 
schaltet wird. 

Alle 4 Grafikseiten sind in ih- 
rer Grundgrafik gleich, zeigen 
jedoch Veränderungen. 

Da eine Grafikscite einen 
kompletten Bildschirm um- 
faßt. und jetzt vier verschie- 
dene Bilder relativ schnell 
hintereinander geschaltet 
werden, erhalten wir einen 
Zeichentrickfilm ähnlichen 
Effekt. 
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100 ' i 1 

110 ' I ALIEN A T T A C K I 

120 ' | i 1 | 

130 ' I 1 II 8 X I 1 

140 ' | ‘ » | 

150 ' | <o) 1985 bv Volk*r B#oker I 

160 'I St#inb*oh*r 8tr. 10 | 

170 '| 6370 Ob#rur«*l/TS. 6 I 

18 0 ' 1 

190 ' 

200 DATA 29,1,3, 0,29,1, 3, 0,254, 0,87,3,254, 0,87,3, 29,1,166, 2,29,1, 166, 2,29,1,58, 2 
,29,1,58,2,29,1,87,3,29,1,87,3,83,1,166,2,83,1,166,2,83,1,58,2,83,1,58,2,124,1,8 

7.3.124.1.87.3.171.1.166.2 

210 DATA 171,1,166,2,83,1,58,2,83,1,58,2,29,1,87,3,29,1,87,3,29,1,166,2,29,1,166 
,2,29,1,58,2,29,1,58,2,252,1,248,3,252,1,248,3,171,1,87,3,171,1,87,3,171,1,58,2, 

171 . 1.58.2. 124 . 1 . 248. 3 

220 DATA 124,1,248,3,171,1,87,3,171,1,87,3,124,1,58,2,124,1,58,2,83,1,87,3,83,1, 
87,3,29,1,166,2,29,1,166,2,29,1,58,2,29,1,58,2,29,1,87,3,29,1,87,3,29,1,166,2,29 
,1,166, 2,29,1,58,2,29,1 

230 DATA 58,2,254,0,87,3,254,0,87,3,29,1,166,2,29,1,166,2,29,1,58,2,29,1,58,2,29 
,1,87,3,29,1,87,3,83,1,166,2,83,1,166,2,83,1,58,2,83,1,58,2,124,1,87,3,124,1,87, 

3.171.1.166.2.171.1. 166 . 2 

240 DATA 83,1,58,2,83,1,58,2,29,1,87,3,29,1,87,3,29,1,166,2,29,1,166,2,29,1,58,2 
,29,1,58,2,252,1,248,3,252,1,248,3,171,1,97,3,171,1,87,3,171,1,58,2,171,1,58,2,1 

24.1. 248.3.124. 1 .248. 3 

250 DATA 171,1,87,3,171,1,87,3,124,1,58,2,124,1,58,2,83,1,87,3,83,1,87,3,171,1,1 

66.2.171.1.166.2.124.1.58.2.124.1.58.2.171.1.87.3.171.1.87.3.171.1.166.2.171.1.1 

66.2. 171 . 1.58.2. 171 . 1 

260 DATA 58,2,252,1,248,3,252,1,248,3,171,1,87,3,171,1,87,3,171,1,58,2,171,1,58, 
2,124,1,248,3,124,1,248,3,171,1,87,3,171,1,87,3,124,1,58,2,124,1,58,2,83,1,87,3, 

83.1.87.3.29.1. 166. 2.29.1 

270 DATA 166,2,29,1,58,2,29,1,58,2,29,1,87,3,29,1,87,3,29,1,166,2,29,1,166,2,29, 
1,58,2,29,1,58,2,254,0,87,3,254,0,87,3,29,1,166,2,29,1,166,2,29,1,58,2,29,1,58,2 
,29,1,87,3,29,1,87,3,83,1 

280 DATA 166,2,83,1,166,2,83,1,58,2,83,1,58,2,124,1,87,3,124,1,87,3,171,1,166,2, 
171,1,166,2,83,1,58,2,83,1,58,2,29,1,87,3,29,1,87,3,29,1,166,2,29,1,166,2,29,1,5 

8.2.29.1.58.2. 252 . 1.248.3 

290 DATA 252,1,240,3,171,1,87,3,171,1,87,3,171,1,58,2,171,1,58,2,124,1,248,3,124 
,1,248,3,171,1,87,3,171,1,87,3,124,1,58,2,124,1,58,2,83,1,87,3,83,1,87,3,171,1,1 

66.2.171.1.166.2.124.1 

300 DATA 58,2,124,1,58,2,171,1,87,3,171,1,87,3,171,1,166,2,171,1,166,2,0,0,0,0 

310 CLEAR 600 

320 DER I NT D,I,J,K,L.T,W 

330 DEPSTR A 

340 ON STOP GOSUB 2030STOP ON 
350 ON ERROR GOTO 2040 
360 DIM D P ( 4 ) 

370 60SUB 1090 

380 J«40:POR 1=0 TO 2 : P U T SPRITE I , < J , 0 ) , 8 , I : J = J + 3 2 : N E X T 

390 J = 4 0 : P OR 1=3 TO 5 PUT SPRITE I , < J , 4 8 > , 7 , I : J * J + 32 : N E X T 

400 J = 2 4 : P 0 R 1=6 TO 9 PUT SPRITE I , ( J , 8 0 ) , 3 , I : J = J + 3 2 : N E X T 

410 VDP< 1 >=227 : BC=0 

420 ON INTERVAl = 12 GOSUB 830 RESTORE : SOUND 7, 56 : MS5{=-1 : INTERVAL ON 
430 POR JU = 0 TO 2 : J«RND<64 ) : I P STRIG(JV) THEN 450 
440 NEXT GOTO 430 
450 D A = 0 : T Z = 0 : BC= -1 

460 POR 1=0 TO 9 PUT SPRITE I , ( 0 , 0 > , 0 , 63 : NEXT : ON STRIG GOSUB 10 8 0,1080,1080 
470 YDP(1>=226 : BP = 0 P = 0 : PK* = STR$(P) : LG = 3 : T A = 0 : KP = 120 : LK*0 : DN = 0 DL = 0 LU = 1PUT SPR 
ITE 0, (KP, 148), 6, 10 STRIG(JU) ON 
480 IP BC THEN 480 

490 DS«RND< 200 > *200+24 ■ DA« -1 : STRI G ( JV) ON 

500 ON STICK(JU) GOSUB 800,810,810,810,800,820,820,820 

510 UPOKE 6H1B01.KP 

520 IP DE THEN 550 
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530 IF DD THEN 610 

540 GOTO 500 

550 LG-LG -1 : TZ = 0 : BP- -1 

560 SOUND 6,30 SOUND 7,28PUT SPRITE 0 , < K P , 1 4 8 ) , 9 , 36 : F OR 1 = 15 TO 0 STEP -l:SOUND 
10, I PUT SPRITE 0, (KP, 148) , 9, 3 9 * ( I ) \ 4 : FOR K»1 TO 20 NEXT K,I 
570 SOUND 10,0: SOUND 7,56:DE=0 
580 IF BP THEN 580 
590 IF LG-0 THEN 740 

600 KP-120 : PUT SPRITE 0 , < K P , 1 4 8 ) , 6 , 1 0 : GO TO 500 
610 P=P+10*LV : I F P>999999 ! THEN P = 999999! 

620 PK$=STR$(P) BP = - 1 : T Z - 0 

630 SOUND 6 , 10 : SOUND 7,28:PUT SPRITE 1 , < DS , 32 ♦ DU > , 1 1 , 3 2 : FOR 1-15 TO 0 STEP -1 SO 
UND 16 , I : PUT SPRITE 1 , < DS , 32 + D V > , 1 1 , 35 - < I > \4 = FOR K-l TO 20NEXT K,IPUT SPRITE 1 
, <0, 0> , 0, 63 

640 DD-0 : SOUND 10,0SOUND 7, 56 : DE-0 : T A-T A + l 
650 IF BP THEN 650 

660 IF TA=4+2*LV THEN 670 ELSE 490 
670 DN-DN+1: IF DN>4 THEN DN-0 
680 LV-LV + 1: IF LU>6 THEN LV = 6 
690 T A-0 : GOTO 490 

700 FOR J = 1 TO LENCPK») : VPOKE 6 H4 0 0 * J B + 7 1 3 + J , ASC < M I D * < PK * , J , 1 ) ) : N E X T 
710 TZ-TZ + 1: IF TZ = 4 THEN BP = 0 
720 UPOKE 6H4004JB+729-LG, 32 
730 RETURN 

740 STRIG(JV) OFF : D A = 0 : F OR 1=0 TO 3 ' P U T SPRITE I , < 0 , 0 > , 0 , 63 : NEXT VDP ( 1 ) *227 
750 SP- 16 : FOR 1=0 TO 3:PUT SPRITE I , ( SP , 16 ) , 8 , 40+ I PUT SPRITE 4 + I , < SP , 50 > , 12 , I +4 
4 : SP-SP+32 NEXT 
760 GOTO 430 

770 FOR J=715 TO 720 : VPOKE &H400# JB+ J , 32 : NEXT : FOR J-727 TO 728VP0KE 6>H400*JB + J, 

120 : NEXT : VPOKE & H 4 0 0 * J B ♦ 7 1 5 , 4 8 

780 TZ-TZ + 1: IF T Z = 4 THEN 8C = 0 

790 RETURN 

800 RETURN 

810 KP=ABS<<KP+3)*<KP<224>+224*(KP>=224>>RETURN 
820 K P - A BS < <KP-3>*<KP>16>+164(KP<=16> ) : RETURN 
830 IF I NKE V$ = CHR* ( 24 ) THEN MS*=NOT MS - /. 

840 IF MS* THEN SOUND 8,10 SOUND 9,9 ELSE SOUND 8,0:SOUND 9,0:6OTO 870 
850 READ Ml* , M2* , M3* , M4 - /. : I F M1* = 0 THEN RESTORE : GOTO 850 
860 SOUND 0 , Ml* : SOUND 1,M2*:S0UND 2,M3*:SOUND 3,M4* 

870 IF BP THEN 60SU8 700 
880 IF BC THEN GOSUB 770 

890 VDP<2)-JB : JB-JB + 1 : IF JB>3 THEN JB-0 
900 IF NOT DA THEN 970 

910 DV=RND<120>*10-5 : DS=DS+2*LV*SGN(KP-DS> 

920 PUT SPRITE 1 , < DS , 32+DV ) , 15 , DP ( DN > + JB 
930 IF DE THEN RETURN 
940 IF DL THEN 980 

950 IF ABS ( KP -DS ) < ( 8 + LU > THEN LD = 51:PUT SPRITE 2 , < DS , LD > , 9 , 48 : DL= -1 
960 IF LK THEN 1020 
970 RETURN 

980 LD = LD + 8*LV : IF LD>148 THEN 990 ELSE VPOKE 6.H1B08 , LD : GOTO 1010 
990 IF ABS< VPEEK<6H1B09) -KPX12 THEN 1060 
1000 DL = 0 : PUT SPRITE 2,<0,0),0,63 
1010 IF NOT LK THEN RETURN 

1020 KT = KT-48:IF KT<32 THEN 1030 ELSE VPOKE &H1B0C, KT : SOUND 10,KT\8 GOTO 1050 
1030 LK = 0 : SOUND 7,56: SOUND 10,0:IF ABS ( VPE EK < 6H 1 B0 D > - DS > < 9 THEN 1070 
1040 PUT SPRITE 3 , < 0 , 0 ) , 0 , 63 : STRI G< JU> ON 
1050 RETURN 

1060 PUT SPRITE 2, (0,0),0,63:PUT SPRITE 3 , < 0 , 0 > , 0 , 63 : DL = 0 DE = - 1 RE T URN 
1070 PUT SPRITE 2, < 0 , 0 > , 0 , 63 : PUT SPRITE 3 , < 6 , 0 > , 0 , 63 : DL-0 D A-0 DD= - 1 : RET URN 
1080 STRIG(JV) OFF KT-132 PUT SPRITE 3 , < KP , KT ) , 7 , 11 : SOUND 7.28 S0UND 6,10:LK--1: 

RETURN 

1090 KEV OFF : SCREEN1, 3, 0 ' WIDTH32 : GOSUB 1320 
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1100 I A = 0 ■ I E = 15 : 60SUB 1980 I 0 = 32 : I E = 223 ; 6ÜSUB 1990GOSUB 1690 RESTORE 1370:COLOR 
1,1,1 WIPTH32BASE(7>=6H1800 

1110 FÜR U I = 0 TO 3:VBP(1)=162BASE(5>=WI*6H400 S C R E E N 1 VPP(1)=162 

1120 FÜR 1=1 TO 20K=RND(128)*512J=RNB(64>*500 IF J < 2 5 0 THEN VPOKE BASE(5;+K,12 

1 ELSE VPOKE BASE ( 5 ) +K , 122 
1130 NEXT 

1140 LOCATE 9, 15 : PRINT "cbbaaaaaaaabbc" READ A LOCATE 0 . 1 6 P R I N T " ccba'afed“ + A + " d e 
fg'abcc" 

1150 FÜR 1=17 TO 20 RE Ap a LOCATE 0,1 PRINTA ; NEXT 

1160 LOCATE 0,21:PRINT“8228888222 8 888888888388888888288" LOCATE 8, 22: PRINT" £2288 

2 .< 0 xx £££££8"+CHR$(30)+CHR»(30) 

1170 LOCATE 0 , 2 3 PR I NT “ £ ££ £82 2 8888©#*4*+ • OOSo'fi ££ 8822£2" + C HR $ < 3 0 > + C HR * ( 3 0 ; : OP OKE 
BASE ( 5 ) + 767 , 12 

1180 REM 1 1 * I g ' M I C g C H g " C I C g ' " I I g ~ J t 9 J C 9 , ] C g 9 H g ~ ( ] [ g 0 H g '' ) I ( g M ] 9 * [ g Ml ] 

1190 LOCATE 21 , 2 PR I NT “ ÜABCDE “ : LOCATE 2 1 . 1 1 : P R I N T “ P QRS T U " 

12 0 0 LOCATE 2 0 , 3 : P R I N T " F 1 1 1 1 1 1 6 “ : F 0 R 1=4 TO 9 L 0 C A r t 19,1 PRINT C H R T ( I+84/+” tttt 
tttt"+CHR$( 1+68) NEXT LÜChTE 20,10 PRINT “OttttttN" 

1210 LOCATE 25 , 3 : PR I NTCHR* ( ( 32 + W I ) *4 ) + CHR* ( ( 32+W I ) #4 + 2 ) LOCATE 25,4 PRINT CHR»((3 
2+WI>*4+iJ+CHR*((32+WI>*4+3) 

1220 LUCATE 22, 9 PRINTCHRJC C32 + WI >*4,>+CHR$( ( 3 2 + W I ) * 4 + 2 ) : LOCATE 22,10PRINTCHR*<( 

3 2 + W I ,>*4 + l)+CHR*< (3 2 + WI j> * 4 + 3 ) 

1230 LOCATE 26,8PRINTCHR*((36+WI)*4)+CHR*(<36+WI)*4+2> LOCATE 26,9 PRINTCHR*((3 
6 + W I ) * 4 + 1 > + C H R * ' (36+WI >*4 + 3) 

1 f 4 0 LOCATE 2 4 , 6 PRINT CHR$( (36 + WI >44)+CHR$( (36 + WI / * 4 + 2 >» LOCATE 24,7 PRINTCHR*((3 
6+WI )*4+l>+CHR*< (36+WI .> * 4 + 3 ) 

1250 LOCATE 20 , 4 PR I NTCHR * ( ( 40 + 4 * W I > * 4 > +C HR * ( < 4 0 + 4 * W I ) t 4 + 2 ) L OC A TE 20,5 PRINTCHR 
* ( (40 + 44WI )*4+l>+CHR*( (40 + 44WI >44 + 3> 

1260 LOCATE 2 0,o P R I N T C H R $ ( (42+41UI )*4)+CHR*( (42+4 *WI > * 4 + 2 > LOCATE 20,7 PRINTCHR 

* ( (42 + 44 W I >*4+l>+CHR*( (42 + 44WI ) * 4 + 3 > 

1270 LOCATE 22,4 PRINTCHR*((41+44WI>44)+CHR$( (41+44 W I / * 4 + 2 > LOCHTE 22, 5 PRINTCHR 

* ( (41 + 44WI >44 + lJ+CHR$( (41 + 4 4 WI ^44 + 3) 

1280 LOCATE 22,b:PRIN(CHR$(( 43 + 44UI>44)+CHR$(<43 + 44WI>44 + 2> LOCATE 2 2, 7 P R I NTCHR 
t ( (43 + 4 4 WI >44 + l)+CHR$( (4 3 + 4 4WI )4 4 + 3> 

1290 NEXT WI 

1300 VPP(1)=162 VPP(4>=5 VPP(6)=7 RESTORE 1410 FÜR I=Ö TO 27 RE AB J VPOKE (.H20O0 
+I,J NEXT 

1310 FOR 1=0 TO 4 RE aB B P ( I > N E X T RETURN 
1320 WII)TH28 PPINT"A L I E N a T T A C K“ 

13 3 0 PRINT" 

13 4 0 LOCATE 0 , 3 : P R I N T “ I> a s nachfolgende Programm" : P R I N I "ist ein reines M S X BASIC" 
PRINT " Pr ogr ä#» und e n h a 1 1 keine" PRINT "Maschinensprache Elemente," 

1350 PRINT PRINT "Der Bildschirm wird gleich " PR INT "für einige Sekunden schwarz. I> 
les hat jedoch keine" PRINT "Bedeutung." 

1368 RETURN 

13 7 0 B A T A d d p r d d d d d d d d p r , d d d d d d 1 n d d d d d d d 1 n d d d d d d d 1 n d d d d d d , d d d d d d r„ o d d d d d d d m o d d d d d 
ddmodddddd.dhjdddddddh j ddddddhj dddddd dddhid.dikdddddddikddddddikdddddddddik d 
13 8 0 DATA ddd dpr dddddddd, ddddprdddddl nddddddddlndpr dddddd, dddddddddddm o d d d d d d d d m 
o d dddddddd, ddddddhj dddddddh j dddddddh j dddddd . dddddd i kdddddddi kddddddd l kdddddd 

13 9 0 P A T a dprddddddprddd,dprddlndddddddlnddddddddlndddprd,dddddmodddddddmodddddd 

d d m o d d d d d d . d d d d d d d d d d h j d d d d d d d d d h j d d d d d d d d d , d d d d d d d d d d i k d d d d d d d d d l k d d d d d d d d d 

14 0 0 P A T A ddddddprdadddd.ddlndddprdlnddddddlnddddprddlndd.ddmoddddddinoddddddmodd 

ddddddmodd , dddddh j dddddddh j ddddddddh j dddddd , ddddd i kddddddd i k dddddddd l kdddddd 
1410 PA Th 252,252,0,0.0.0.241,241,81,81,81.81,225,94,94,161.165,165,165,165,165, 
165, lb5, 165, 165. 165, 165, 165 
1420 Pa I a 12,16.20,24.28 
1436 REM SPRITES 

1440 BaTA 0000205088C4A2B1,AaA7A0a0A0A0C080,000008182868A868,A8282828282F283F,00 

001F207FC0A09F,403F000000FF00FF,0000FF00FF0000F8,04E2120A0CF932E7 

1450 PaTA 0000C 02 090492612, 0914264990204080, 0O003C4890204080, 0080 402090 48241E, 00 

3F40FFA0A0A0A0, BFC0FFa0A0A0c080,00E163a5A5h5A5a5.a5A5A5A5A5A5C687 

1460 PATA 0002060A0C0A060A,0A0A0A0A0ACA8C08,00000000001F207F,507F407F505F607F,00 

00000000E163A4,a7A5C58505E54684,00000000007884F2,0A0A0A0A0A0A0C08 

1470 PATA 083F40FFa0A0A0A0,BF80FFA0A0A0C060,00E060A0a8a3A4AF,A0A0A0A0A0A0C080,00 

2060A0A0FE04F9,A0A0A0A0A0A0C 080, 00040C1414 7 F80FF. 1414141414141810 
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CPU-Game 


1480 I» 0 T 0 000000 O000CF903P . 000F103F282F303F , 0000000000E3640F , HHHHrtHHHHHHBCCSF , 0 0 
00010 2 02FA12E2, 0t 0 2020202 F013E2, 0080848 C94 h8I)0 00, 4000D008 9 4800602 

1490 D 0 T h 0001010111113945, BBC5BBD50BB5 0 986, 0080808088889002. DI»03I>I>0BI>50I>9361, 00 

00000000000000 , 0001000100010001 , 0000008000080000,8000800080008000 

1500 I'hTh 4122110825528E91 , 8E52245580442310, 0 408100043 9 4E212, E29448 5 4h244281ü , 01 

01116925528851. 8052245520542800. 0000102 048942214.6294485408542800 

1510 I>0 T 0 0100010015220911, 09550E5522140800, 0080002050682010, 2054E05488502000, 01 

01116925528851.8052245520542800.0000102048942214.6294485408542800 

15 2 0 I'hTh 00810 20590695520, 170r>020420542000.00C10345891600I'4.68B0402054200400, 00 
01022251E914ÖB, 0601020400102800, 0080404480170850, E080402050081400 

1530 I» * T 0 0001020201395500,8 7 01021508040H0Ö, 00000040801 Ch0I>5,6ü804 0 08 10 205000, 00 
01022251E914ÖB, 0801020400102800 . 0080404480170850, E080402050081400 

1540 D 0 T 0 8041261918252249, 552224191826418ü, 0182641898244400, 9244041898648201, Ü0 
00231918052228,3422041918230000.0000041898204420,1444001898040000 

1550 I» 0 T h 000000U10H150202, 140B04080400000 0 . 0000002010201028, 4040085080000000, 0 0 
00231918052228, 3422041918230000, 0000041898204420, 1444H01698O40000 

1560 |)0Tm O10 2050h152054 20, 1128458011201008, 8 04 0005 008542054, 8814 02518804 08 10, 01 

02050014205128, 1420452011081000, 8040005028548014. '2854025488108800 

1570 10T0 010204 0011285 4 20, 15 2m 1520 150 80000, 8040205 088 14 2054, 085 4 H8t- 408 100000, 01 

02050014205128. 1420452H11081000, 8040005028548014. 2854025488100800 

1580 10 T 0 0002040928142201, 2214280904020000, 0040201a 9 4284480, 4428941020400000, 0 0 
0808080 9 140201, 0214090808080000, 00 1010 9 01 02y4080, 4o 28109010100 000 

1590 DhTm 0010205005040201, 0204095020100000, 0008048h10204080, 4020108804080000, 00 
08080809140201,0214090808080000.0010109010284080,4028109010100000 

1600 t> A T 0 0F10274893040900, 000904934827100F, F008E412O 9 259555, 559525O912E408F0, 00 
00070813242920, 2029241308070000, 0000E010 0 8249454 , 549424O810E00000 

1610 D0T0 0000000003040900,0009040300000000,0000000000209050,5090200000000000,00 
00000000000102,0201000000000000,0000000000008040,4080000000000000 

1620 I> 8 T 0 1060450111113144, 8B052B0 58B14 0 986, 0080808 2 88009C02,O983912BHrt59360, 10 

00441104112144, 0644204000040986,0004002288001002,490310295 1851200 

1630 I> 8 T 8 00 0 0401100110044, 0B0420 0 0H0004 9 84, 0084000208001002. 08«210 0 9502512 0 0, 00 

00001100000044 , 0000080002000900, 0000000000001000, 0082000040041000 

1640 1 8 T 8 00 3F40FF000000BF,80FF00M000BFC0FF,00F020C0000000F0,30I>0505050I>060C0,00 

3F40FFA00000BF,80FF«0A00000C080,00F030I>0505050I>0.50t’0505050506040 

1658 I» 0 T 0 00205088C402B100, 0700000000000080, 0008182868A86808, 2828282820283020, 00 
3P40PPA00000PP.81PE000000BPC0PP,00F020O 000000080, 0000000000P020O0 

1660 I>8T0 003F40 P PH0H0H000, h 0h0h0h000BP^0FP,00P0 3 0D050 5 05050,5050 5 050501' 060 0 0. 0 0 

20509088484424 , 2211110000040407 . 0008142424484890 . 9020204040808080 

1670 10T0 003P40FP000000FP,81FE000000BPO0FP,00F020O 000000080, 0000000000F020C0, 00 

3P40PPH00000BP , 80PP080402H1OÖ80, 00V0H010B05050E0, 0000804028100040 

1680 I> h T 0 8000000103060505. 0201000000080000-00000080 C0E0E0E0, 0080000000000000 


1698 R E S T 0 R E 1440 

17 8 0 FÜR 1=0 TO 1 8 5 : R E h 1 0 $ FÜR K = 0 TO 7 VPÜKE 8 * I + K + o H 3 6 0 0 , V 0 L < " 0 H 0 “ + H I 1 * C * , 2 4 
K ♦ 1 , 2 > > NEXT K , I RETURN 
1710 REM CHmRhKTER 

1720 10T0 0000000000000000, 00305804H4583000, 08B105B18585B180, 00EP28EP2121EP00, 00 
22221414880800 , 000404F49494F600, Ö 0 6 0 8 0 h F 0 F 0 8 0 F 0 0 , 000 3025362424300 

17 3 0 1 H T h 0 ö 6 0 4 0 9 E 5 E 5 0 9 E 0 0 , 0 0 0 4 0 4 P 5 8 b 8 5 P 5 0 0 , 0 0 0 0 0 0 7 h V B 4 2 7 h 0 0 , 0 0 0 0 0 0 8 0 0 0 0 0 0 0 0 0 , 0 0 

00000000000000 . 302824242820E0C0, 3024302424E41018 , 1054 3 8EE 3 8541808 

1740 1AT0 0000000000000000 . 2020202000002000, 5050500000000000, 5050F850F8505000, 20 
78007028P02000, 0008102040981800, 4000400898986800 . 1020400000000000 

1750 D 0 T 0 1020404040201000 , 40201010102 04 000, 200870207008200 0, 002020P820208000, 00 


00000000202040, 0000007800000000, 0000000000606000, 0000081820408000 

17 6 0 DhTH 0018242424241800, 0 010 3 010 1010 3 8 00, 0 0 1 8 2 4 0 4 0 8 1 0 3 C 0 0 . 00182408042 

2828283 C080O00, 003028380404 3 800, 001820 3 8242418 00,0030040810101000 

1770 Ii h T 0 0018241824241800, 0018242410041800, 00FO80PB0H00PB00 , 0 000 0 0I>E121 

■088081O, 


0002000 

P 01 

0 0 0 0 E 0 P 0 P 8 F i* F E P E 


0 0 0 0 0 E 0 E 8 8 6 E 0 0 , 0 0 0 0 P 8 0 0 F 8 0 0 0 0 0 0 .0 0 1 > 0 3 0 1 8 3 0 6 0 0 0 0 0 
17 8 0 I'hTh UOÜ0 0 000030F3P7P , 80873PPPPPPPPPFP , 3PP 
E0FOPFFFFPPPPP . 0 0 0 0 0 0 0 0 >. 0 P 0 P 0 P E . 0 0 0 3 0 7 0 P 1 P 3 P 7 F 7 P 

17 9 0 I'hIh woö0O0C0E0E6F8P0,P8P8FOPCFoPEPEPE 
PEFEPCFCF 0 P 8 F 8 , P0F0E0E8C0 008000 . PEPEFOF8F0E0O000 

18 00 I>hT0 7 P3P0F0 3 00000000, FPPFPPPPPP3P0T00, PPPPPPPFPPPPPP3P 
PPPPPPPPPCE008 . PEP 0 P 0 0 0 0 0 000000 . 8 8 ö 8 8 ö 3 8 5 0 5 0 2 0 0 0 . 88888808081» 88800 
1810 I) 0 T h 0 0 0 1 0 3 0 3 0 7 0 7 0 F 0 F . 1 P 1 P 3 P 8 P 3 F 7 P 7 P 7 P , 7 F 7 


7P7P3F1F0P 0 70 3 00 


418 0 0 , 00 
2 1' E 0 0 , 0 0 
, 0 0 
, P E 
0 . P P 
7 P 7 P , 7 F 


CPU 24 
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CPU-Game 


7F7F3F3F3F1F1F,0F8F 070 7 83 8 3 0108, 2058880000000000, 8 80000000008 F 888 

18 2 0 B 0 [ H 00000000FFPFFFFP , 000 0000 0100P PP PPP, 000000000000PPPP, 0000000000000 0 F F , pp 
PPPPPPPPPPPPPP ,00 PPPPPPPPPFPPPPj0000PPPPPPPPPPPP j 0 0 0000PPPPPPPPPP 

18 3 0 Dh(h 8 0 0 0 0 3 0 E 3 8 2 E 3 3 2 E , 8 :> t E i 5 4 t b B B Pi fc 5 B h , 0 8 0 8 b 8 7 8 1 0 7 4 0 C B 4 . 6 0 B 4 6 E B 2 5 6 B B 5 B h B . 8 8 
0000 0 0030 C0B0H, 1 h 1 2 3 4 2 5 2 h 1 3 0 7 0 0 , 0080006 Pi 80b0H0Fl0, B 0 9 8 5 8 4 8 H b 300088 

18 4 0 I) rt r H 8 1 0 2 8 5 8 1> 6 h 0 B 8 7 0 0 , 0000000066000000 , 8 0 4 0 h 0 3 0 B 0 5 0 E 0 0 0 , 00000 0000000 000 , PP 
PPPPPPPPPPPPPP , 0004004000010800 , 0000480000401000, 8200060022808400 
18 5 6 B h T h 0 0 1 0 1 0 5 4 V C 7 C 5 4 0 0 , 0 0 0 0 1 0 3 8 1 0 0 0 0 0 0 0 . y 0 0 0 0 0 0 0 6 8 0 0 0 0 0 0 , 1 8 2 0 2 6 4 0 2 6 2 0 1 8 0 8 , 2 0 
2020 Pi 08 0 202000, 0 020201020200000, 40 h 8 100000000000, 00002056P 8600000 

1860 DhTh 0FlF36b043o78O19, 3233313018060763, C0P0180CC6E333B3, 33E3Cb060C18P0E0,00 
006P1P3060C 3 0 6. C6O6C361301C0P0 3, t-6 380b 86C363 33B 3, B333E2C60C18P0E0 

18 7o i)H f H 0 7 0 P 1 8 3 0 6 0 6 3 C 7 0 0 , CBoOo7ö330l30P88, b0E038180 080 0040 , 9 8 3 1 E 3 0 2 0 6 6 b P 8 P 0 , 07 
0 P 1 8 3 6 b 3 4 7 0 b >.• I> , b 1 0 0 060361361 0 0 6 , 0 0 P 6 3 8 0 b 8 e. b 3 6 3 o 3 , b 3 0 3 0 6 0 0 F 8 P 0 0 0 0 0 

18 8 6 BhI h 0 6 1 0 3 0 6 1 0 3 0 6 0 0 0 V . 0 B 0 0 4 7 b 3 3 6 1 8 0 P 0 7 , 0 0 0 0 F 0 P 8 0 0 6 6 0 3 6 3 , 6 3 6 3 0 3 8 6 6 0 3 8 P 0 0 0 , 6 3 
070 018303133 32 . 1 9 8 C 0 7 4 3 b 0 3 0 1 P 0 P , E 0 P 8 1 8 0 b 0 b b 6 b 3 8 3 , B 3 3 3 b 3 C 6 0 0 1 8 P 0 b 0 

18 9 0 ÜH I H 6 3 0 P 1 0 3 0 b 1 0 3 0 6 b b , b 6 b 3 6 0 3 0 1 F 0 P 0 0 0 0 , E 0 F 6 1 8 0 0 0 b E 2 3 3 B 3 . B 3 3 3 b 3 0 3 8 6 6 0 3 8 6 0 , 0 3 
0 F 1 8 3 0 6 3 C 7 0 0 0 1> , 0 0 0 7 6 3 b 0 3 0 1 8 y F 0 7 . F 0 P 8 0 0 0 6 0 2 E 3 3 1 9 8 . 4 0 0 0 8 0 0018 3 0 E 0 b 0 

I960 Kh Th 8000000000800001 , 0 3 ü 6 0 b 0 6 6 b 6 b 0 b 8 0 , 0 0 0 0 0 0 0 0 0 7 1 P 7 8 E 0 , 800 FlF 303 lb 3 b 6 OO . 3 F 

0 F 0 0 8 0 0 0 F E 8 F 0 1 , 61P0F80 0-86 0 66b7b . 0 0 E 0 F 0 1 8 1 b 0 0 O b 8 b , 0 b 0 3 0 3 6 3 b 3 b 3 b 3 b 3 

1 9 1 (3 I' h T h 0 0 8 0 8 0 8 6 0 b 8 3 0 3 0 1 . 010 0 0 6 0000000000 , 0 0 0 6 b 3 6 1 3 0 3 C 0 F 8 3 , 8 6 0 0 P 8 7 P 0 7 0 0 0 0 0 6 , 8 0 
18P8E10 7 1EF8E0, 006 3 0PPOF0000000,63O3b3868606t' 030, P6 0000000000 01 000 

19 2 0 t'H I H 0 0 ü ü 0 0 0 0 6 0 0 6 u y 6 1 , 0 7 0 E 8 b 0 b 0 b 1 8 1 8 1 8 , 6 0 0 0 y 0 0 0 0 7 1 F 7 8 E 0 , 8 3 6 F 3 0 3 8 b 1 b 3 0 b 0 0 , 0 0 
0 0 6 0 0 0 E 0 F E 1 F 0 1 , 81 Eü781b 860666 3b, 0000000600000000 , 0 0 b 0 b 0 b 6 b 0 3 0 3 0 3 8 

19 3 6 i' 0 T h 101818180000060b, 6 3 0 3 0 1 0 1 6 6 0 0 0 0 0 0 , b B 0 0 0 0 6 b 6 3 3 1 3 6 1 8 , 1 E 6 7 8 1 8 8 0 0 P 8 3 F 8 7 , 3 6 

E b b 6 8 b O b F 8 P 0 0 1 , O 7 F F F 8 O 0 6 0 0 1 F F F E , 3 8 3 0 b 1 b 1 b 3 6 3 b 3 0 3 , 8 b 0 6 8 6 1 0 7 6 P 0 8 8 6 6 

19 4 6 B 0 T h 8000008 0 0800030 P,3O30b8blblO3O 3 06, 0000008P3PF0O 008, 071P78E08 7 6F183 1,08 

0 0 0 0 E 0 P E 1 F 8 3 8 1 , 0 1 F 0 3 0 0 0 8 b 0 6 6 3 3 3 . 800008000000O080 . ö 0 0 6 b 0 b 0 b 0 3 0 3 0 3 0 

19 5 0 B H T h b 6 0 6 b 6 0 b b b 0 3 0 3 b 3 , 6 1 3 6 3 0 3 8 1 8 O P 0 7 0 0 , b E b 6 b 3 b 1 3 0 1 P 0> P 8 0 , 8 8 P 0 7 F 0 3 0 1 0 (3 F 0 F b . 3 3 
6 6 0 6 8 0 8 b P 8 P 0 0 1 , 8 7 1 E P 6E008080880 , ;• 0 3 0 3 0 b 0 b 0 b 0 6 0 0 0' , 806000 0 080000008 

I960 BPI h 0 0 0 1 0 P 1 E 3 8 6 0 b 0 b 1 , 0 3 0 b 0 6 0 6 8 6 8 6 8 0 1 b , 1 P P P 8 6 8 0 8 8 1 P P P E 0 , 8 0 0 P 1 P 3 8 6 1 b 3 b V b 0 , E 0 
P01 P 0301 8 1E878, 188 b 80 0b6b 33 33B 3. 00 0000088080 b 0 b tt , b 6 b 8 3 0 3 OH 8 1 8 1 8 1 8 

1 9 1 ’ Ö B N T h 0 0 1< 0 6 0 0 6 0 b 8 3 0 3 6 1 , Pt 1 0 0 0 08 6 0 0 Pi 0 0 0 6 0 , 6 cb“6 6 3 6 1 3 8 1 E 0-r£rl , 8 6^8 7 F 6 7 0 0 8 0 0 y 86, 33 
6 3 0 6 8 6 0 0 3 0 P 0 b 1 , O 7 1 E P 8 E 0 8 O O O 6 6 0 0 . 18181 8 3 6 3 0 8 0 1 0 E 0 , 8 0 0 0 8 0 8 8 0 0008080 

198 8 PEST OKE 17 2 8 

19 9 0 P 01 P t - I 0 T Ü I E P E h B b $ F 0 P K = 8 Tu 7 • VPÜKE 8 4 I + k + 0 H 2 8 0 0 , V 0 L ( “ & H 0 “ + M 1 B i ( 0 4 . 2 4 

K + 1 , 2 > > N E X I K , I P E t U P N 

2 0 0 8 INTEPOhL ÜFP STRib^JW) OFP SOUNB 8,0 S 0 U N B 9,0 8 0 U N B 18,0 

2010 BHbEO 5^=&H1800 bHSE t 1 / =0 

2020 S 0 P E E M 0 0 0 L U P 15,4,4 p E T U P N 
2 8 3 0 8 U S U B 2 0 0 0 : E N B 

2 84U buSUB 2 PJ 00 PRINT“ Fehler in Zeile jEPL 
2950 EPP OP EPP 
2 8 6 8 E N B 



Tips und Tricks 

CPC-464: 
Reverse On/Off 


Leider gibt es beim CPC kei- 
nen Befehl, der auf den „Re- 
verse-Modus" umschaltet. 
Wer nicht die umständliche 
Methode der Paper/Pen-Aus- 
wechslung vornehmen 


möchte, kann folgende Sy- 
stemroutine aufrufen! j 

CALL &BB9C:rem Ver- 
tauscht Paper und Pen Farbe 


y *• 
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CPU-User 


BTX setzt sich durch 


Seit Mai/Juni 1984 bietet die 
Post den uneingeschränkten 
bundesweiten Bildschirmtext 
an. Jeder Bundesbürger kann 
sich seit diesem Zeitpunkt an 
dieses Datennetz anschließen 
lassen. 

Der folgende Artikel soll die 
Möglichkeiten und Kosten 
für den Teilnehmer aufzei- 
gen. 

Was verbirgt sich hinter dem 
Begriff Bildschirmtext? 

Bildschirmtext ist ein neuer 
Femmeldedienst der Deut- 
schen Bundespost. Neben alt- 
bekannten Kommunika- 
tionstechniken wie Telefon 
und Telex und neueren wie 
Telefax und Teletex bietet die 
Post seit 1984 den Bild- 
schirmtext-Dienst an. 

Durch die Koppelung von 
Fernsehgerät und Telefon so- 
wie der Verbindung zu einem 
Computer werden der Emp- 
fang und das Senden von In- 
formationen über die Tele- 
fonleitung möglich. Über die 
Kommunikation mit den 
BTX-Zentralcn (Computern) 
der Post hinaus, können auch 
EDV-Anlagen von Unter- 
nehmen, Organisationen 


oder Institutionen angewählt 
werden. Durch diesen „Rech- 
nerverbund" werden die Dia- 
logmöglichkeiten nahezu un- 
begrenzt erweitert. BTX lie- 
fert Textinformationen und 
j Grafiken in vielen Farben auf 
| den Bildschirm eines Fern- 
sehapparates. Man besitzt die 
Möglichkeit aus inzwischen 
mehreren Hunderttausend 
Bildschirmtext-Sciten eine 
Auswahl zu treffen. Zum Bci- 
! spiel können Sie den neuesten 
| Wetterbericht oder aktuelle 
I Reiseangebotc abrufen. Und 
da BTX auch dialogfähig ist. 
können Sie auch Überwei- 
sungen von Ihrem Bankkonto 
, veranlassen, oder eine Bestel- 
lung bei Ihrem Versandhaus 
aufgeben. 

Aufbau des BTX-Systems 

Die Deutsche Bundespost 
stellt das Telefonnetz, das 
BTX-Systcm sowie die Ver- 
J mittlungssteilen zur Verfü- 
gung. Die Informationen 
werden von über 3000 Anbie- 
tern in das BTX-Systcm ein- 
gegeben und in den BTX- 
Vermittlungsstcllen der Post 
gespeichert. 

Datenverarbeitungsanlagen 


: und Rechenzentren der ver- 
! schiedensten Anbieter (z. B. 
Banken, Versicherungen, 
Versandhäuser, Reiseunter- 
I nehmen, Verlage) werden 
j über das Datex-Netz der Post 
mit den BTX-Vermittlungs- 
stellen verbunden. 

BTX wurde erstmals im Sep- 
tember 1983 zur internatio- 
nalen Funkausstellung einge- 
führt: wobe( mit dem CEPT- 
Standard ein noch größerer 
Vorrat an Zeichen und Far- 
ben sowie eine verfeinerte 
Wiedergabe grafischer Dar- 
stellungen durch höhere Bild- 
auflösung ermöglicht wurde. 
Seit dem Sommer 1984 ist 
eine neue Systemtechnik im 
Einsatz, die die technische 
Basis für den weiteren Aus- 
bau des BTX-Dienstes bildet. 

B I X für jedermann? 

Nach mehrjähriger öffentli- 
cher Erprobung ist deutlich 
geworden, daß BTX als neues 
Informationsmedium und 
insbesondere als neuer Kom- 
munikationsweg für die Vor- 
bereitung und Erledigung pri- 
vater Geschäfte und allge- 
meiner Informationsbedürf- 
nisse von der überwiegenden 


Mehrheit der privaten 
Teilnehmer akzeptiert wird. 
Zur Zeit sind etwa 20 000 pri- 
vate Teilnehmer an diesem 
System angeschlossen. Diese 
Zahl dürfte sich in den kom- 
menden Monaten und Jahren 
noch um ein vielfaches stei- 
gern, da inzwischen die Ko- 
sten für das Betreiben eines 
BTX-Decodcrs sehr günstig 
sind. Immer mehr Modem- 
Freaks steigen auf BTX um, 
da die Möglichkeiten weitaus 
größer und die Telefonkosten 
wesentlich niedriger sind, als 
die Verbindung mit fernen 
Mailboxen. 

BTX bietet sich dem privaten 
Nutzer geradezu an. da er sei- 
ne Aktivitäten bequem vom 
Wohnzimmer aus tätigen 
kann. Durch die 24stündige 
Verfügbarkeit ist er weder an 
Ladenschluß- noch an andere 
Öffnungszeiten gebunden. 
Folgende BTX-Möglichkei- 
ten werden in erster Linie von 
privaten Nutzem in An- 
spruch genommen: 

1. Angebote von Waren und 
Dienstleistungen aus allen 
Wirtschaftsbereichen 

2. Aktuelle Nachrichten 


Verbindungsschema und Aufbau des Mediums »Bildschirmtext« 








CPU-User 


(Presse) und aktuelle Infor- 
mationen mit Servicecha- 
rakter 

3. Interaktive Dienste, insbe- 
sondere Waren- und Infor- 
mationsbestellungcn 

4. Kommunikation von 
BTX-Teilnehmem unter- 
einander. 

Wie funktioniert BTX? 

Der private BTX-Teilnehmer 
braucht nicht viel: Einen 
Farbfernseher mit BTX-De- 
coder und Fernbedienung, 
ein Telefon und eine BTX- 
Anschlußbox (Modem). 

Zu beachten ist. daß BTX- 
Decoder nicht an alle Fernse- 
her angeschlossen werden 
können, man sollte sich des- 
halb vor dem Kauf mit dem 
Händler absprechen. BTX- 
Decoder gibt es zur Zeit in 
der Preislage zwischen 700 
und 2000 DM. Sicherlich ist 
auch hier in nächster Zeit ein 
Preisrückgang zu erwarten. 
Der BTX-E>ecoder speichert 
die empfangenen Textinfor- 
mationen und wandelt sie in 
stehende Fernsehbilder, soge- 
nannte Bildschirmtext-„Sei- 
ten“, um. Die BTX-Ab- 
schlußbox verbindet den 
BTX-Decoder mit dem Tele- 
fonanschluß. Die Übermitt- 
lungsgeschwindigkeit Für 
BTX-Seiten beträgt 1200 bit 
pro Sekunde (1200 Baud), 
also 4 mal so schnell wie eine 
übliche Mailbox. Die Über- 
tragung von eigenen Seiten an 
die BTX-Zentrale läuft dage- 
gen wesentlich langsamer ab. 
hier wird aus Sicherheits- 
gründen nur mit 75 Baud ge- 


arbeitet. Für den Dialog mit 
dem BTX-System benutzen 
Sie entweder die Fernbedie- 
nung Ihres Fernsehers oder 
die BTX-Tastatur des Deco- 
ders. Damit lassen sich Bu- 
chungen und Bestellungen 
durchführen. Auf jeder BTX- 
Seite finden Sic einen Hin- 
weis mit welchen Tasten Sie 
die nächste Seite abrufen 
können. Der Anbieter von 
BTX-Seiten besitzt die Mög- 


lichkeit diese mit einem Be- 
trag von 0,00 DM bis 9.99 
DM zu belegen. Dieser Preis 
muß jedoch in einer vorher- 
gehenden Seite angekündigt 
werden, so daß der BTX- 
Teilnehmer die Wahl besitzt, 
diese Seite aufzurufen oder zu 
überspringen. Wird eine sol- 
che Seite angewählt, so wird 
der entsprechende Betrag mit 
Ihrer Telefonrechnung einge- 
zogen. 


Solange Sie Bildschirmtext 
benutzen, ist Ihr Telefonan- 
schluß „besetzt“. Möchten 
Sie trotzdem telefonisch er- 
reichbar sein oder gleichzeitig 
telefonieren, so benötigen Sie 
einen Doppelanschluß. 

Die abgerufenen BTX-Seiten 
lassen sich mit einem ge- 
wöhnlichen Kassettenrecor- 
der oder seit neuestem auch 
mit einer Diskettenstation 
abspeichem. Die so gespei- 


Beispiele für Anwendungen 


Anwendungen Mögl. Informationsanbieter 

(Beispiele) (Auswahl) 


Politische Nachrichten 
Wetterbericht; Reisewetterbericht 
Sport 

Lotto Toto 

Urlaubsreisen/ Zimmernachweis 

Fahrplanauskunft 

Theater- und Konzertprogramme 

Lokaler Veranstaltungskalcndcr 

Bestseller/Neu veröfTentlichungen 

Verkaufsangebote 

Immobilien 

Stellenangebote 

Bestellungen 

Buchungen 

Überweisungen 

Schadensmeldungen 

Finanzierung 

Steuererklärung 

Aus- und Weiterbildung 

Tests 

Spiele 


Tageszeitungen. Presseagenturen 
Deutscher Wetterdienst 
Tageszeitungen. Sportzeitungen 
Tageszeitungen. Klassenlotterien 
Reiseveranstalter. Reisebüros. Hotels 
DB. Verkehrs- und Fluggesellschaften 
Veranstalter. Kommunen 
TZ. Vereine. Kommunen. Parteien 
Verlage, Buchclubs 
Kaufhäuser. Versandhandel, 

Cash & Carry 
Makler 

Arbeitsämter, Firmen 
Versandhandel, Buchclubs. 
Theaterkassen 

Reiseveranstalter. Reisebüros 
Banken. Sparkassen, Postgiroämter 
Versicherungen 
Bausparkassen, Banken 
Steuerberater, Finanzamt 
Fach verlage, Fernlehrinstitute 
Psychologische Institute 
Unternehmen der Unterhaltungsbranche 


Fortsetzung S. 28 



Jetzt überall 
im 

Zeitschriften 

Handel: 


für Heimcomputer 


Das So£twaremagazin 
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cherten Seiten können jeder- 
zeit auf Ihren Bildschirm ge- 
bracht werden, ohne das Ge- 
bühren dafür entrichtet wer- 
den müssen. Wie auch bei 
den Heimcomputem läßt 
sich auch ein Drucker an- 
schließen. der BTX-Zeitcn 
ausgeben kann. 

Ein besonders interessanter 
Dienst sind die „Persönlichen 
Mitteilungen". Dieser Dienst 
ist ähnlich aufgebaut, wie bei 
den „Mailbox-Briefkästen", 
die immer mehr Freunde fin- 


den. Bei BTX hat jeder j 
Teilnehmer einen eigenen j 
elektronischen Briefkasten. 
Nach dem Beginn eines Dia- J 
logs finden Sie auf der Begrü- | 
ßungsseite einen Hinweis, ob 
j für Sie eine Mitteilung vor- 
liegt. Für Ihre eigene Mittei- 
lung an einen anderen BTX- 
Teilnehmer gibt es zwei Mög- 
lichkeiten: 

1. Möglichkeit 
Anwählen einer Art „Formu- 
lar". welches Sie mit Zahlen- 
angaben für Bestellungen, 


Datum u. a. ergänzen kön- 
nen. 

2. Möglichkeit 

Aufrufen einer Leerseite, in 
die mit einer BTX-Tastatur 
beliebiger Text eingegeben 
werden kann. Bestimmen des ( 
Empfängers durch Eingabe j 
seiner BTX-Teilnehmemum- | 
mcr. 

W as kostet Bildschirmtext? 

Trotz umfangreicher Werbe- 
Aktionen der Post sind die 
eigentlichen Kosten nur sehr 


wenigen bekannt. Der Vor- 
wurf BTX sei für den priva- 
ten Gebrauch zu teuer, wird 
| jedoch zu Unrecht erhoben. 
Der Preis für Fernsehgerät 
mit BTX-Decoder liegt etwa 
800- 1 500 DM über dem eines 
einfachen Fernsehempfän- 
gers. Wie schon erwähnt wird 
dies in den nächsten Monaten 
sicher noch günstiger werden. 
Für die Leistungen im BTX- 
Dienst erhebt die Post folgen- 
de Gebühren: 


An alle BTX-Teilnehmer 

Die CPU beabsichtigt auch 
weiterhin von BTX zu berich- 
ten. Haben Sie Erfahrung mit 
BTX so können Sie mit einem 
Artikel zum Inhalt der CPU 
beitragen. Das Honorar be- 
| trägt 120 DM pro abgedruck- 
te Seite. 

Wir erwarten gespannt auf 
Ihre Beiträge! 

Gebühren für Btx-Teilnehmer 

- Anschließungs- oder Änderungsgebühr 

- Monatliche Gebühr je Teilnehmerkennung 

- Telefongebühr 

- Einrichten von Mitbenutzern 

- Absenden einer Mitteilung 

- Speichern einer abgerufenen Mitteilung 

- Abruf aus anderen Regionalbcreichen 

DM 65,00 einmalig 

DM 8.00 

Orts-/ Nahgesprächsgebühr 1 ) 

DM 0.05 pro Tag 

und Mitbenutzern 3 ) 
DM 0.40 pro Seite 2 ) 

DM 0.015 pro Tag u. Seite 2 ) 

DM 0,02 pro Seite 2 ) 3 ) 



Btx - neue Applikation für den 
Texas Instruments Professional- 

Computer 

Der Btx -Software- Decoder des Dortmunder System- und Softwarehauses mbp erhält die FTZ-Zulassung auf einem Texas 

Instruments Professional-Computer 


Mit der Erteilung einer allge- 
meinen Zulassung für den 
vom Mathematischen Bera- 
tungs- und Programmier- 
dienst (mbp) entwickelten 
Software-Decoder auf dem 
PC von Texas Instruments 
durch das Zentralamt für Zu- 
lassungen im Fernmeldewe- 
sen wurde ein großer Fort- 
schritt für die Anwendung 
von PCs im Rahmen von 
Bildschirmtext erzielt. 

Zum erstenmal in ihrer über 
30jährigen Zulassungspraxis 
hat das Darmstädter FTZ mit 
der FTZ-Nummer 0 3841 D 
einer Software ihren Segen j 
gegeben. Der Btx-Software- 
Decoder des Dortmunder Sy- 
stem- und Softwarehauses 
mbp hat die FTZ-Zulassung 
auf einem TI-PC. 

Die entscheidende Voraus- 
setzung. Bildschirmtext wirk- | 


lieh zum Kommunikations- 
medium der Zukunft zu ma- 
chen, besteht in der Möglich- 
keit. Btx voll in den vorhan- 
denen Informationskreislauf 
zu integrieren. Erst wenn der 
professionelle Anwender 
über ein Terminal nicht nur 
seine üblichen PC'-Applika- 
tionen. sondern auch seine 
Kommunikationsanforde- 
rungen vernünftig bearbeiten 
kann, lassen sich die Vorteile 
von Btx für ihn angemessen 
nutzen. 

Realisierbar wird diese Lö- 
sung durch einen Btx-Softwa- 
re-Decoder. wie der von mbp 
entwickelte. Die zur Weiter- 
verarbeitung im Mikrocom- 
puter ohnehin erforderliche 
Decodierungs-Software wur- 
de durch einen Displayteil er- 
gänzt. so daß die Btx-Seiten 
auf dem am Rechner ohnehin 


vorhandenen Sichtgerät dar- 
gestellt werden können. 

Dabei werden die in den Btx- 
Seiten enthaltenen Nutzin- 
formationen den Benutzer- 
programmen, unabhängig 
vom verwendeten Btx-Stan- 
dard, für eine Weiterverar- 
beitung zur Verfügung ge- 
stellt. Das Prinzip der voll- 
ständigen Software-Integra- j 
tion ermöglicht so dem An- 
wender eine gegenüber 
Hardware-Lösungen höhere 
Flexibilität in der Realisie- 
rung anforderungsgerechter 
Kommunikationskonzepte. 

Die Zulassung, die den Be- 
trieb eines Professional- 
Computers als Teilnehmer- 
Terminal gestattet, sieht fol- 
gende Konfiguration als Mi- 
j nimum vor: 

Texas Instruments (Portable) 
Professional-Computer 


- ein Floppy-Laufwerk 

- 256-KByte-Speicher 

- TI-Farbgrafik (3 Ebenen) 

- Kommunikationsmodul 
(zum Anschluß an 1200 75 
Modem) 

- VTX 84 RGB-Adapter 
(lieferbar 2. Quartal '85) 

- MS-DOS 2.11 

- mbp Btx-Software Rel. 1.5. 


Der Einsatz als Teilnehmer- 
Terminal gestattet es, die 
Bildschirmtext-Seiten auf 
dem Monitor des TI-PC dar- 
zustellcn. Ein RGB-Monitor 
kann angeschlossen werden. 
Btx-Seiten können auf den 
angeschlossenen Massenspei- 
chern (Floppy- oder Winche- 
| ster-Disk) gespeichert und im 
Off-line-Modus ohne Bild- 
| schirmtext-Zentrale aufgeru- 
i fen werden. 
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Zeicheneditor für ATARI 
(48k RAM) + Diskettenstation 


Der „ZEICHENEDITOR" ist 
ein Utility, das dem Anwen- 
der erlaubt, den Zeichensatz 
des ATARI umzugestalten 
und ihn in seinen eigenen 
Programmen zu nutzen. 

Der „ZEICHENEDITOR" 
meldet sich auf dem Bild- 
schirm mit einem Menue, das 


alle Möglichkeiten anzeigt. 
Zur Auswahl der Funktionen 
ist der Anfangsbuchstabe der 
Funktion mit der Tastatur 
einzugeben. 

Das Zeichen wird mit Hilfe 
des Joysticks editiert. 

Unter dem Menuepunkt 
„SAVEN" findet man auch 


die Möglichkeit, den editier- I 
ten Zeichensatz als eigenes 
Programm abzuspeichem. Es 
muß mit ENTER eingeladen 
werden. 

Die Funktion „BANNER" 
setzt einen Drucker voraus. 
Mit dieser Funktion ist es 
möglich, große Schriftbänder 
zu drucken. 


Beim Abtippen empfiehlt es 
sich, das Programm vorher 
abzuspeichern, da es mehrere 
Maschinenunterprogramme 
beinhaltet, die bei fehlerhaf- 
tem Abtippen zum Absturz 
führen können. 

Ein Drucker ist nur für die 
Funktion „BANNER" erfor- 
derlich. 


100 

110 

120 

130 

HO 

150 

160 

170 

ieo 
190 
7.0 0 
210 
220 
230 
240 
25 0 
260 

27 0 

28 0 
290 
30 0 
310 
320 
330 
3 4 0 
35 0 
360 
370 
380 

39 0 

40 0 
410 
420 
430 
440 
450 
460 
470 
430 
490 
500 
510 
520 
530 


ZEICHENCDITOR 

J e n s S c hup f e n e r 
Denninqer str .206 
80 00 Muenehen 81 
Tel.: 089/93 90 88 


REM 
REM 
REM 
REM 
REM 
REM 
REM 

REM ****x##*#****)k****: 

REM 

POKE 106, 152: GRAPHICS 17 

DIh A* ( 255 ) , TRANS $ ( 42 ) ,CUFS*(75) ,INTER*(20 ) ,VBV*(S8) .81 EAR*(31 ) 
DIM 0(8,8) ,W<0) ,DIR*<20 ) 

DIM INDERS* (44) , DREHEN* (61 ) , SPIEGELN* ( 54 ) , X* ( 40 ) 

? II^U'*******************" 

9 *65"* Zeicheneditor *" 

? II 6 J "*****>(^*»:*#x***##x*)« ,, 

? *65? 46 

? *6:" 1985 JENS SCHUPPENER" 

? #6:? 16 

? I6J "bitte warten......" 

? *61? *6 J "LADE CHARACTERSATZ' 

? *6? "VOM r om INS ran" 

? 16:? 16:? *6:? *6 
? #6;" iioneconp uter '85" 

CHARACTERMAP INS 


SPLIT* ( 112) 


REM 

REM 

CHBASNEU=156* 
CHE AS OLD 


RAM 


GOSUB 

GOSUB 

gosue: 

GüGLlE 

GOSUB 

GOSUB 

GOSIJB 

GOSUB 

GOSUB 

GOSUB 


4700: REM VBI 
4950 :A=USR( ADR (CLEAPt) ) 
4460 :A=USR( ADR (TRANS* ) ) 
50 3 0 : A-USR ( ADR ( CURS* ) , 0 
540 0 : REM DU INTERRUPT 
5240: REM SPLIT 
5150: REM INVERS 
4570: REM DREHEN 
485 0: REM SPIEGELN 
5730 J REM TITEL 


4) 



REM DISPLAYLIST 

REM 

GRAPHICS 


0 

POKE 752, 255: REM 


POKE 
DLT=33912:RLM 


CURSOR 
710,24 
*9800 


AU< 
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590 SCREENE:ASE=37952 : REM $9910 
550 DAT A 112,112 
560 DATA 62,00,06 
16 

66,69,198 

2,2,2,2,2,2,2,2,130,2 
199,2,2,2,2,16,9,16,5,16,6,16,/ 

65,00 ,1.52,-1 

zaehler=dlt:restore 550 

READ D:iF D —— 1 THF.N 660 

ZAEHLER , D : ZAEHLER-ZAEHL.ER+ 1 
630 


580 
590 
600 
610 
62 0 
630 
690 
650 
660 
670 
680 
690 
700 
710 
720 
730 
79 0 
750 
760 
770 
780 
790 
800 
810 
820 
830 
890 
850 
860 
870 
880 
890 
900 
910 
920 
930 
990 
950 
960 
970 
980 
990 
10 00 
1010 
1020 
1030 
1090 
1050 
1060 
1070 
1080 
1090 
1100 
1.110 
1120 
1130 
1190 
1150 
1160 


DATA 

DATA 

DATA 

DATA 

DATA 

DATA 


F'OKE 

GOTO 

POKE 

PO KE 

POKE 

POKE 

POKE 

REM 

REM 

7 


560 , DLT-INT (DLT/256)*256 
561 , INT (DLT/256) 

5 12 , ADR ( INTER$ ) ~INT ( ADR ( INTER$ ) /256 ) *256 
513, INT < ADR < INTER*) 7256) 

59286 , 192 
DISPLAY 


OLDCHF " 

LADEN" 

SAVEN" 

BANNER" 

DIR" 


"Atari 
"Ir.vert 
"Drehen 
"Kopieren 
"Loeschen 
"Sp iegeln" 

"Waeiilen" 

POSITION 19,0JFOR 1=1 TO 10*.? CHR* ( 160 ) J J NEXT I 
FOR 1 = 1 TO 8 ‘.POSITION 19,1 
? CHR* < 160 ) *, " " JCHR*<160) 

NEXT I 

POSITION 19,9:F0R 1=1 TO 


10 :? CHR* ( 160 ) , J NEXT I 


REM 

REM 

POKE 

POKE 

POKE 

POKE 

POKE 

POKE 

POKE 

POKE 

POKE 

POKE 

POKE 


PLAYER MISSLE 

559, 96: REM DMA EIN 
53277, 3JREM DMA EIN 
62.3, i: REM PRIOR 
53257, 3*. REM SIZE F'l 
705,116:REM FARBE PI 
53258, 3JREM SIZE F'2 
706,22: REM FARBE 


53256 , 0 : REM SIZE 


F'2 

F'O 

X-WERT 

X-WERT 


53299, 10e:REM F'l 
53250 , 108JREM F'2 

59279, 152:F'MBASE = 152*256:REM F'MBASE 
F'0BASE=F'MBASE+512 
F'lBASE=F'MBASE + 69 0 
F'2BASE=F’MBASE+768 
DATA 290,199,199,290 
RESTORE 1030 

FOR 1 = 1712 TO 1712 + 3:READ D : F'OKE I,D 
NEXT I 

REM MUSTER F'M3 

REM 

FOR I = F'2BASE + 21 TO P2BASE+21+31 STEP 8 
POKE I,170*.POKE 1+1,170 

I + 2,170:F'OKE 1 + 3,170 
1 + 9, 85J F'OKE 1+5,85 
1+6, 65: F'OKE 1 + 7,85 
I 

ALLE ZEICHEN 


F'OKE 

F'OKE 

F'OKE 

NEXT 

REM 

REM 


6502/65C02 

Maschinen- 

sprache 


Autor: Christian Persson; 
erschienen im Heise-Verlag, 
Hannover - ISBN 3-922705 
- 20-0 


Dieses Buch führt am Bei- 
spiel des elrad-COBOLD- 
Computers in die Program- 
mierung des weltweit erfolg- 
reichsten Mikroprozessors 
6502 ein. Der Leser benötigt 
keine Vorkenntnisse. Neben 
einem leicht verständlichen 
Grundkursus ist eine aus- 
führliche Beschreibung des 
COBOLD- Betriebssystems 
enthalten. Diese dient dem 
fortgeschrittenen Anwender 
als praxisnahe Anleitung für 
den Entwurf komplexer Pro- 
gramme. Die in sich abge- 
schlossenen Teile des Be- 
triebssystems und die ergän- 
zenden Programmbcispiele 
bilden zugleich eine wertvolle 
Sammlung von Standard- 
Routinen für jeden 6502-An- 
wender. 

Mit dem COBOLD-Compu- 
ter steht ein preisgünstiges 
Selbstbau-System als Trai- 
ningscomputer zur Verfü- 
gung. Der konkrete Bezug er- 
leichtert das Verständnis für 
das Zusammenwirken von 
Hardware und Software und 
ermöglicht es, die Darstellung 
auf andere Computer zu 
übertragen. 

Um das Programmieren 
„von der Pike aut" zu lernen, 
gibt es kein dankbareres Stu- 
dienobjekt als den Mikropro- 
zessor 6502. Dessen Maschi- 
nensprache ist relativ leicht 
zu verstehen und zugleich be- 
sonders leistungsfähig. Rund 
die Hälfte aller Tischcompu- 
ter ist mit dem weltweit 
meistverkauften Mikropro- 
zessor ausgestattet. Die neu- 
entwickelten CMOS- Versio- 
nen, deren Besonderheiten in 
diesem Buch dargestellt wer- 
den, sichern dem Prozessor- 
typ auf Jahre hinaus eine 
Spitzenstellung in seiner 
Klasse. 
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1170 ZAEHLEF--3S396 : COÜNT-O 
11Q0 FOR 1=0 TO 127 

1190 IF C0UNT=32 TUEN COUNT=0 : ZAEHLER=ZAEHLER+8 

120 0 F'OKE ZAEHLERM 

1210 ZAEHLER=ZAEHLER+ 1 

1220 COUNT=COUNT+l 

1230 NEXT I 

1240 GOSUE: 386 0: REH CHE IN GRAFIKEN 
1250 REM HÄUFET SCHLEIFE 

1260 REM 

1270 A=F'EEK ( 764 ) 

1280 IF A=31 THE.N GOSUE: 1490JGOTO 1270 :REM OLDCHR 

1290 IF A = 30 THEN GOSUE: 2890: GOTO 1270 { REM LADEN 

1300 IF A=26 THEN GOSUE: 2340JGOTO 1270 JREM SPEICHERN 

1310 IF A=24 THEN GOTO 3070 JREM BANNER 
1320 IF A=29 THEN GOTO 2160 :REM DIR 
1330 IF A = 63 THEN GOSUE: 1730:GOTO 1270 JREM ATARI 

1340 IF A=58 THEN GOSUB 2040 : GOTO 1270 JREM DREHEN 

135 0 IF A = 13 THEN GOSUE: 1800 : GOTO 1270 J REM INDERS 

1360 IF A=5 THEN GOSUE: 1850 :GOTO 1270 JREM KOPIEREN 
1370 IF A = 0 THEN GOSUE: 1960JGOTO 1270 JREM LOESCHEN 
1380 IF A=62 THEN GOSUE: 2100JGOTO 1270 JREM SPIEGELN 

1390 IF A--46 THEN GOSUE: 1420 JGOTÜ 1270 JREM WAEHLEN 

1400 IF A- : 42 THEN GOSUE: 1550JGOTO 1270 JREM EDITIEREN 

1410 GOTO 1270 
1420 REM WAEHLEN 

1430 REM 

144 0 F'OKE 764,255 

1450 GOSUE: 4050 JREM CUSOR WAEHLEN 
1460 GOSUE: 3750 JREM SICHTFELD LADEN 
1470 GOSUB 3860 JREM CHAR IN GRAFIKEN 
1480 RETURN 
1490 REM OLDCHR 

1500 REM 

1510 F'OKE 764,255 
1520 A^USR ( ADR ( TRANS* ) ) 

1530 GOSUE: 3750 JREM CHR INS FENSTER 

1540 RETURN 

1550 REM EDITIEREN 

1560 REM 

1570 F'OKE 764,255 
1580 WX=1 08 J WY = 21 
1590 A=U3R ( ADR ( CURS$ ) ,WX,WY) 

1600 A=STICK ( 0 ) 

1610 IF F'EEK< 764) 0255 THEN RETURN 
1620 IF STRIG( 0 ) = 0 THEN GOSUE: 1700 JGOTO 1660 
1630 IF A=14 AND WY>21 THEN WY=WY-4JG0T0 1680 
1640 IF A=13 AND WYC48 THEN WY=WY+4JG0T0 1680 
1650 IF A=ll AND WX>108 THEN WX=WX-4JG0T0 1680 
1660 IF A=7 AND WXC136 THEN WX=WX+4JG0T0 1680 
1670 GOTO 1600 

1680 A=USR ( ADR < CURS$ ) ,WX,WY) 

1690 GOTO 1600 

1700 X=(WX-108)/4JY=(WY-21)/4 
1710 A=USR ( ADR ( SPLIT $ ) ,X,Y,CHRNR) 

1720 RETURN 
1730 REM ATARI 

1740 REM 

1750 F'OKE 764,255 
1760 FOR 1=0 TO 7 

177 0 F'OKE CHBASNEU + CHRNR#8 + I , F'EEK < CHBAS0LD + CHRNR*8+I ) 
1780 NEXT I 
1790 GOTO 1460 


Dieses Buch ist Program- 
mier-Lehrbuch, Programm- 
sammlung und Handbuch 
zum elrad-COBOLD-Com- 
puter in einem. Wer einen an- 
deren Computer benutzt, 
wird einige Angaben auf die- 
sen übertragen müssen - ein 
Nachteil, den jedes andere 
nicht systembezogene Lehr- 
buch auch aufweist. Anderer- 
seits bietet aber gerade der 
Bezug auf einen real vorhan- 
denen Computer und dessen 
Betriebssystem, das in allen 
Einzelheiten erläutert wird, 
den Vorteil der Praxisnähe. 
Im Prinzip kann jeder 6502- 
Computer zum Einüben der 
beschriebenen Programmier- 
techniken dienen, wenn we- 
nigstens ein Maschinenspra- 
che-Monitor vorhanden ist. 
(Andernfalls können Sie den 
CO BOLD- Monitor überneh- 
men; allerdings sind dafür 
schon einige Vorkenntnisse 
erforderlich.) 

Mit dem elrad-COBOLD- 
Computer steht ein preisgün- 
stiges Selbstbau-System zur 
Verfügung, das sich gleicher- 
maßen gut als Lerncomputer 
für den Anfänger wie als Ent- 
wicklungsystem oder Zentral- 
einheit eines Tischcomputers 
für den fortgeschrittenen Pro- 
grammierer eignet. So bietet 
der COBOLD-Computcr 
schon in der Grundversion 
viele Möglichkeiten, die man 
bei einem Lerncomputer 
sonst nicht vorfindet. Der 
weitere Ausbau ist nicht nur 
möglich, sondern schon 
weitgehend vorbereitet, so 
daß nur noch geringe Kosten 
entstehen. 

Dieses Buch soll Lesern mit 
sehr unterschiedlichem Hin- 
tergrund gerecht werden. Es 
wendet sich an den Anfänger, 
der weder auf dem Gebiet der 
Computertechnik noch auf 
dem der Mathematik beson- 
dere Vorkenntnisse besitzt. 
Es richtet sich zugleich an den 
6502-Experten, der eine Do- 
kumentation des COBOLD- 
Systems benötigt, um dessen 
Möglichkeiten auszuschöp- 
fen beziehungsweise zu er- 
weitern. 
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1300 REM INVERS 

1810 REM 

1020 POKE 764,255 

1830 A=U3R (ADR ( INVERSt ) , CHRNR ) 

1840 GOTO 1460 
1850 REM KOPIEREN 

1860 REM 

1870 POKE 764,255 
1880 CHRNR2=CHRNR 

1890 GOSUE: 4050 :REM CURSOR WAEHLEN 
190 0 GOSUE: 3750 : REM CHR INS SICHTF. 
1910 FOR 1=0 TO 7 

1920 POKE CHBASNEU+CHRNR2*8+I,PEEK 
( CHE:ASNEU+CHRNR*8 + I ) 

1930 NEXT I 

1940 CHRNR=CHRNR2 

1950 RETURN 

1960 REM LOESCHEN 

1970 REM 

1980 POKE 764,255 

1990 FOR 1=0 TO 7 

20 0 0 POKE CHE:ASNEU + CHRNR*6+I,0 

2010 NEXT I 

2020 GOSUE: 3750: REM CHR INS SICHTF. 
2030 RETURN 
2040 REM DREHEN 

2050 REM 

2060 POKE 764,255 

2070 A'-USR ( ADR ( DREHEND ) , CHRNR) 

2080 GOSUE: 3750: REM CHR INS SICHTF. 

2090 RETURN 

2100 REM SPIEGELN 

2110 REM 

2120 POKE 764,255 

2130 A=USR( ADR (SPIEGELN*) , CHRNR) 

2140 GOSUE: 3750 : REM SICHTFELD 

2150 RETURN 

2160 REM DIR 


2550 ? *1J"0 GOSUE: " ; ZEILE 5 " : REM AE: HIER EIGENES PROGRAMM !" 
2560 ? IIJZEILEJ" REM UNTERPRG. CHARACTERMAP ERSTELLEN" 

2570 ? I1JZEILE+1J" POKE1 06 , PEEK ( 1 06 ) -4 5 GR . 0 " 

2580 GOSUE: 4300 :REM DATA ZEILEN 
2590 ? *i;ZEILE+140; M RESTORE "JZEILE 
2600 ? *1 JZEILE + 141 J " Z 1 =FEEK ( 1 0 6 ) *25 
2610 ? *1 ;ZEILE + 142; " FOR I = ZI TO Z 
2620 ? I1JZEILE+143J" READD : F'OKEI , D" 

2630 ? *1 JZEILE+144J " NEXT I" 

264 0 ? I 1 JZEILE+145J " P0KE756 , PEEK < 1 0 
2650 ? I 1 J ZEILE+ 146 } " RETURN" 

2660 CLOSE #i:POKE 764,255 
2670 POKE 54286, 192 JREM DLI AN 
2680 FOR 1=3 TO 7 
2690 POSITION 15, IJ? " 

2700 NEXT I 

2710 POKE 53249, 10O:REM PI XWERT 
2720 POKE 53250 , 108:REM F’2 XWERT 
2730 RETURN 

2740 REM ABSPEICHERN ALS DATA 
2750 GOSUE: 4190 JREM OEFFNE DATEI 
2760 IF PEEK ( 851 ) Ol TUEN 2660 
2770 GOSUE: 4420 JREM ZEILENNUMMER 



2170 REM 

2180 POKE 53248,0 
2190 POKE 53249,0 

2200 POKE 53250,0 JREM XWERT PL0-2 

2210 POKE 764,255 

2220 GRAPHICS 0 

2230 TRAP 2280 

2240 OPEN II, 6,0, "DJ*.*" 

2250 INPUT *1JX$J? X$ J " "J 

2260 INPUT #1JX*J? X$ 

2270 GOTO 2250 
2280 CLOSE II 

2290 ? J? "Taste druecken " 

2300 IF PEEK ( 764 ) =255 TUEN 2300 
2310 POKE 764,255 
2320 ?' 

2330 GOTO 480 
2340 REM SPEICHERN 

2350 REM 

2360 POKE 764,255 

2370 POKE 54286, 64JREM DLI AUS 

2380 POKE 53248,0 JREM P0-2 XWERTE 

2390 POKE 53249,0 

2400 POKE 53250,0 

2410 POSITION 15 , 3 J ? "1) PRGR . " 

2420 POSITION 15, 4J? "2) DATA" 

2430 POSITION 15, 5J? "3) FILE" 

2440 POSITION 15, 7J? "4) GUIT" 

2450 A=PEEK ( 764 ) 

2460 IF A=31 THEN 2510 
2470 IF A = 3 0 THEN 2740 
2480 IF A=26 THEN 2810 
2490 IF A=24 THEN 2660 
2500 GOTO 2450 
2510 REM PRGR. 

2520 GOSUE: 4190 JREM DATEI EROEFFNEN 
2530 IF PEEK ( 851 )<>1 THEN 2660 
2540 GOSUE: 4420 JREM ZEILENNUMMER 
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2780 ? #ijzeile; h rem data euer character 

MAP" 

2790 GOSUB 4300 :REM DATAZEILEN GENERIEREN 
2800 GOTO 2660 
2810 REM FILE 
2820 REM 

2830 GOSUB 4190 5REM DATEI EROEFFNEN 
2840 IF F’EEK (851) <> 1 THEN 2660 
2850 FOR 1=39936 TO 39936+1023 
2860 PUT ♦ 1 , F'EEK ( I > 

2870 NEXT I 
2880 GOTO 2660 
2890 REM LADEN 

2900 REM 

2910 F'OKE 7 64 , 255 
2920 POKE 54286, 64 5 REM DLI OFF 
2930 POSITION 2,10:? " 

2940 POSITION 2,10:? "DJ DATEINAME 
2950 INF'UT X$ 

2960 TRAP 3020 
2970 OPEN 11,4,0,X* 

2980 IF F'EEK (851 )<>1 THEN 3020 
2990 FOR I=CHBASNEU TO CHBASNEU+ 1 023 
3000 GET 11, AJ POKE I,A 
3010 NEXT I 
3020 CLOSE *1 
3030 POSITION 2,10J? " 

3040 POKE 54286 ,192 5 REM DLI AN 
3050 GOSUB 3750J REM CHR INS SICHTF. 

3060 RETURN 
3070 REM BANNER 

3080 REM 

3090 POKE 764,255 

310 0 POKE 53248, 0: REM XWERTE F'<0--2) 

3110 POKE 53249,0 
3120 POKE 53250,0 
3130 GRAPHICS 1 
3140 ? *6}" BANNERCREATOR 
3150 POKE 756, 156: REM CHBAS 
3160 TRAP 3370 

3170 CLOSE ♦ 1 : OF'EN *1 ,8 , 0 , "P : " 

3180 REM EINGABEN 

3190 ? 16 J "Geben sie den satz ein :" 
3200 ? JINF'UT X$ 

3210 ? 16:? #6 J "Welche groesse (1-8) " 

322 0 INF'UT UERJIF VER<1 OR UER>8 
THEN 3210 
oder hor.(H)" 

DIR$<>"H" THEN 3230 

3230 ? 16:? #6J "Ausdruck. . . vert.(U) 

3240 INF'UT DIR$:iF DIR$<>"V" AND 
3250 ? I6J? *6 J "Linker rand (1-72)" 

3260 INF'UT RAND 

3270 IF RAND<1 OR RAND>72 THEN 3250 
3280 ? 16:? *6} "BITTE WARTEN" 

3290 FOR S=1 TO LEN(X$) 

3300 C=ASC(X$(S,S) ) 

3310 INU= 0 

3320 IF 0128 THEN C=C-128 : INV=1 
3330 GOSUB 5460 JREM A3CII-DISPLAYCD 
3340 GOSUB 3390 :REM CHR DATEN 
3350 GOSUB 3520: REM DRUCKEN 


3360 NEXT S 

3370 F'OKE 764 , 255 : CLOSE 11 
3380 GOTO 480 
3390 REM BUCHSTABEN DATEN 
3400 REM CJBUCHSTABE 
3410 FOR 1=0 TO 7 
3420 W ( I ) =F'EEK ( CHBASNEU+C*8+I ) 

3430 NEXT I 

3440 FOR 1 = 0 TO 7 J FOR J=0 TO 7 
3450 G(J,I)=0 
3460 NEXT JJNF.XT I 
3470 FOR 1=0 TO 7 
3480 FOR J=0 TO 7 

3490 IF W ( I ) > = 2 A ( 7 - J ) THEN O ( J , I ) 

= 1 :W(I)=W(I)-2 A (7-J) 

3500 NEXT JJNEXT I 
3510 RETURN 

3520 REM BUCHSTABE DRUCKEN 

3530 REM 

3540 FOR 1=0 TO 7 
3550 ZAEHLER=RAND 

3560 A*<1)=" ":A$(255)=" m :A$(2)=A$ 

3570 FOR J= 0 TO 7 

3580 IF DIR$="U" THEN G=G(J,I) 

3590 IF DIR$="H" THEN G=Q(I,7-J) 

3600 IF 0=0 THEN 3660 

3610 FOR Z=1 TO DER 
3620 CHAR=42:iF INV=1 THEN CHAR=32 
3630 A$ ( ZAEHLER ) =CHR$ ( CHAR ) 

3640 ZAEHLER=ZAEHL.ER + 1 :NEXT Z 

3650 GOTO 3700 

3660 FOR Z=1 TO DER 

3670 C H A R = 3 2 : 1 F INV=1 THEN CHAR = 42 

3680 A* ( ZAEHLER )=CHR$ (CHAR) 

3690 ZAEHLER=ZAEHLER + 1 J NEXT Z 

3700 NEXT J 

3710 FOR Z=1 TO UER 

3720 ? A$:? #1}A$ 

3730 NEXT Z:NEXT I 
3740 RETURN 

3750 REM CHARACTER IN SICHTFELD 

3760 REM 

3770 Y=21 

3780 FOR 1=0 TO 7 

3790 BYTE=F'EEK ( CHBASNEU + CHRNR'*8+I ) 

3800 FOR J=1 TO 4 

3810 F'OKE F'IBASE + Y , BYTE 

3820 Y=Y+1JNEXT J 

3830 NEXT I 

3840 A=USR ( ADR ( CURS$ ) , 0 , WY ) 

3850 RETURN 

3860 REM CHARACTER IN GRAFIKEN 

3870 REM 

3880 C=CHRNR: GOSUB 5560 

3890 POSITION 26,8:? "CHR$ ( " JC J " ) •• 

3900 POSITION 35,8:? '" 

3910 POKE 38308, CHRNR 
3920 FOR 1=38357 TO 38382 STEP 5 
3930 F'OKE I , CHRNF: J F'OKE 1+1, CHRNR 
3940 F'OKE 1 + 3. CHRNR 
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3950 NEXT I 

3960 CI -CHRNR J C2=CHRNR+ 128 

3970 FOR 1=38552 TO 38591 STEP 6: POKE I,C1JP0KE I+3,C2:NEXT I 
3980 FOR 1=38592 TO 38631 STEP 6 J POKE I, C1J POKE I+3,C2:NEXT I 
3990 IF CI >=64 THEN C1 = 0 JC2=C1 JC3=C1 JC4=C1 JGOTO 4010 
-10 0 0 C2=C1+64:C3=C1 +128 tC4=C 1+192 

4010 FOR 1=38632 TO 38672 STEP 12JPOKE I, C1JFOKE 1+3, C2 
4020 POKE 1 + 6 , C3 J F'OKE 1 + 9, C4 
4030 NEXT I 
^0^0 RETURN 

4 050 REM CURSOR WAEHLEN 

4060 REM 

4070 WX=64 : WY=62 

4080 A=USR(ADR<CURS$) ,WX,WY) 

4090 CHRNR=0 
4100 S=STICK ( 0 ) 

4110 IF STRIG ( 0 ) =0 THEN RETURN 

4120 IF S=14 AND WY>62 THEN WY=WY-4 J CHRNR = CHRNR-32 5 GOTO 4170 

4130 IF S=13 AND WY<73 THEN WY=WY+4 J CHRNR=CHRNR+32 J GOTO 4170 

4140 IF S=ll AND WX>64 THEN WX=WX-4 J CHRNR=CHRNR-U GOTO 4170 

4150 IF S=7 AND WXC188 THEN WX=WX+4 J CHRNR=CHRNR+ 1 J GOTO 4170 


4160 

GOTO 4100 

r 

4170 

A=USR < ADR ( CURS* ) , WX , WY ) 


4180 

GOTO 4100 


4190 

REM DATEI EROEFFNEN 


4200 

REM 


4210 

POKE 764,255 


4220 

POSITION 2,105POKE 764,255 


4230 

? " 


424 0 

POSITION 2,10J? "D J DATEINAME 


4250 

INPUT X$ 


4260 

TRAP 4280 


4270 

OPEN ♦ 1 , 8 , 0 , X $ 


4280 

POSITION 2,10J? " 


4290 

RETURN 


4300 

REM DATA ZEILEN GENERIEREN 


4310 

REM 


4320 

A=5 


4330 

FOR 1=39936 TO 39936+1023 STEP 8 


4340 

? *i;zeile+a; m data 


4350 

FOR J=0 TO 7 


4360 

? *1 ;peek(i+j) ; 


4370 

IF J<7 THEN ? •1J”, ,, J 


4380 

NEXT J 


4390 

a=a+i:? #1 


4400 

NEXT I 


4410 

RETURN 


4420 

REM ZEILENNUMMER 


4430 

REM 


4440 

POSITION 2,10J? "WELCHE ANFANGSZEILE " 

♦ 

t 

4450 

INPUT ZEILE 


4460 

POSITION 2,10J? " 


4470 

RETURN 


4480 

REM MASCHINENPROGRAMM TRANS 


4490 

REM 


4500 

DATA 104,169,0,133,203,133,205,169,156 

, 133 

4510 

DATA 206, 173,244,2,133,204, 177,203,145 

,205 

4520 

DATA 230,203,208,2,230,204,230,205,208 

,8 

4530 

DATA 230,206,165,206,201,160,240,3,56, 

176 


Ausgewählte 
BASIC-Computer- 
spiele für den 
Atari 800 

aus der Vieweg Programm- 
bibliothek - Mikrocomputer 
13 - ISBN 3-528-04307-5 

Sämtliche Programme wur- 
den auf den Atari 800 ge- 
schrieben, sind jedoch so aus- 
gelegt, daß sie mit kleinen 
Änderungen auf jedem ande- 
ren BASIC-Computer ablau- 
fen können. Insbesondere 
verzichtete der Autor fast 
gänzlich auf die Verwendung 
von Strings, da die String- 
Verarbeitung bei den ver- 
schiedenen Computersyste- 
men stark variiert. Im An- 
hang findet man dazu eine 
kurze Beschreibung, der in 
diesem Buch verwendeten 
Befehle. 

Die überwiegende Mehrheit 
dieser Spiele zählt zur Kate- 
gorie der Strategiespiele. Die- 
se Programme besitzen eine 
relativ hohe Spielstärke, so 
daß der Computer den feh- 
lenden Partner völlig ersetzt. 
Zudem weisen die Spiele eine 
übersichtliche Struktur auf 
und sind ausführlich erläu- 
tert. 
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4540 
■1550 
4560 
457 0 
4580 
4590 
4600 
4610 
4620 
4630 
4640 

4 63 0 
4660 
4670 
46(3 0 
469 0 
4700 
4710 
4720 
4730 
4740 
4750 
4760 
4770 
47G0 
4790 
4800 
4810 
4820 
4830 
4840 
4850 
4860 
4870 
4880 
4890 
490 0 
4910 
4920 
4930 

494 0 

495 0 
4960 
4970 
4980 
4990 
5000 

5 010 
5020 
5030 
5040 
5050 
5060 

I 5070 
5080 
5090 
5100 
5110 
5120 
5130 
5140 
5150 
5160 
5170 


DATA 231,96,-1 
RESTORE 4500 JGGSUE: 5640 
TRANS$=A$ J RETURN 
REM MR DREHEN 


Die Bände der Programmbi- 
bliothek erscheinen getrennt 
für programmierbare Ta- 
schenrechner und Mikro- 


REM 

DATA 104,104,104,170,169,0,133,212,169,156 
DATA 133,213,224,0,240 ,16,24,165,212,105 
DATA 8,133,212,165,213,105,0,133,213,202 
DATA 208,240,169,128,141,163,6,162,0,160 
DATA 7, 177,212,45, 163,6,240,7,56,62 
DATA 192,6,56,176,4,24,62,192,6,136 
DATA 16,235,78,163,6,232,224,8,208,225 
DATA 160,7,185,192,6,145,212,136,16,248 
DATA 96,-1 

RESTORE 459 0 J GOSUE: 5640 
DREHEN$=A$: RETURN 
REM VBV ROUTINE 
REM 

DATA 104,104,170 ,104,168,169,7,32,92,228 
DATA 96,216,206,168,6,208,22,169,22,141 
DATA 168,6, 173, 192,2,2 08,7, 169, 10 , 141 
DATA 192,2,208,5,169,0,141,192,2,173 
DATA 167,6,201,12,240,13,206,167,6,173 
DATA 167,6, 141 ,4,212,88,76,98,228, 169 
DATA 15, 141 , 167,6, 141 ,4,212, 173, 166,6 
DATA 201,40,144,5,169,0,141,166,6,141 
DATA 3,152,238,166,6,76,98,228,-1 
RESTORE 4720 5 GOSUE: 5640 
VBV*=A« 


Computer und enthalten aus- 
getestete Programme zu je- 
weils einem ausgewählten 
Themenschwerpunkt, der in 
einem einführenden Beitrag 
vorgestellt wird, oder für ei- 
nen aktuellen Rechner. Dabei 
wird der jeweilige Entwick- 
lungsstand der Rechnertech- 
nik berücksichtigt. 

Die Programmbibliothek ist 
mithin als Ergänzung der 
Programmsammlung im Mi- 
krocomputer-Jahrbuch anzu- 
sehen. 

Die Programme sind, ausge- 
hend von einer konkreten 
Aufgabenstellung, in der Re- 
gel in ihrem Ablauf beschrie- 
ben und durch ausgeführte 
Beispiele ergänzt. Wenn es 
nötig scheint, sind auch theo- 
retische Grundlagen für die 
Programmierung erläutert. 
Durch die graphischen, tabel- 
larischen oder in Textform 


A=USR(ADR(VBV$) , ADR ( VBV$ ) + 1 1 ) 

RETURN 

REM MR SPIEGELN 
REM 

DATA 104,104,104,170,169,0,133,212,169,156 
DATA 133,213,224,0,240,16,24,165,212,105 
DATA 8,133,212,165,213,105,0,133,213,202 
DATA 208,240, 160,7, 177,212, 162,7,74,46 
DATA 163,6,202,16,249,173,163,6,145,212 
DATA 136, 16,237,96,-1 
RESTORE 487 0 : GOSUE: 5640 
SPIEGELN$=A$: RETURN 
REM MR CLEAR 
REM 

DATA 104,169,0,133,203,169,152,133,204,160 
DATA 0,169,0,145,203,230,203,208,8,230 
DATA 204,165,204,201, 1 60 , 2^ 0 , 3 , 56 , 1 76 , 237 
DATA 96,-1 

RESTORE 497 0 J GOSUE: 5640 
CLEAR*=At: RETURN 
REM DATA CURSOR 
REM 

DATA 104,104,104,141,161,6,104,104,141,162 
DATA 6,24,169,0,109,160,6,133,208,169 
DATA 154,105,0,133,209,160,0,169,0,145 
DATA 208,200, 192,4,208,247,24, 169,0,109 
DATA 162,6,133,208,169,154,105,0,133,209 
DATA 160,0,185,176,6,145,208,200,192,4 
DATA 208,246,173,161,6,141,0,208,173,162 
DATA 6,141,160,6,96,-1 
RESTORE 5050 t GOSUE: 5640 
CURS$-A$ : RETURN 
REM INVERS MR 
REM 

DATA 104,104,104,170,169,0,133,212,169,156 


gegebenen Ablaufbeschrei- 
bungen wird die Übertrag- 
barkeit auf andere Rechner- 
typen erleichtert, so daß die 
wirtschaftliche Nutzung der 
einzelnen Bände möglich ist. 
An Hand gleichartiger Aufga- 
benstellungen wird fallweise 
auch die unterschiedliche Ar- 
beitsweise verschiedener 
Rechnertypen aufgezeigt. 

»4? rj« rj» «V» V 
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5180 DATA 133,213,224,0,240,14,24,165,212,105 
5190 DATA 8,133,212,165,213,105,0,133,213,202 
5200 DATA 208 , 240 , 160 , 7 , 177 , 212 , 73 , 255 , 145 , 212 
5210 DATA 136,16,247,96,-1 
5220 RESTÖRE 5170:GOSUB 5640 
5230 invers$=a*:return 
5240 REM SPLIT MR 
5250 REM 

5260 DATA 104,104,104,141,169,6,104,104,141,170 
5270 DATA 6 , 1 04 , 1 04 , 141 , 173 , 6 , 169 , 21 , 141 , 171 
5280 DATA 6 , 169 , 128 , 141 , 172 , 6 , 172 , 170 , 6 , 240 
5290 DATA 12 , 24 , 173 , 171 , 6 , 1 05 , 4 , 141 , 171 ,6 
5300 DATA 136 , 208 , 244 , 1 74 , 169 , 6 , 240 , 6 , 78 , 172 
5310 DATA 6,202,208,250,172,171,6,162,4,185 
5320 DATA 128 , 154 , 77 , 172 , 6 , 153 , 1 28 , 154 , 20 0 , 202 
5330 DATA 208,243,169,0,133,212,169,156,133,213 
5340 DATA 174 , 173 , 6 , 240 , 16 , 24 , 165 , 212 , 1 05 , 8 
5350 DATA 133,212,165,213,105,0,133,213,202,208 
5360 DATA 240 , 172 , 170 , 6 , 177 , 212 , 77 , 172 , 6 , 145 
5370 DATA 212,96,-1 
5380 RESTORE 5260JGOSUB 5640 

5390 split*=a$:return 

5400 REM DLI INTERRUPT 
5410 REM 

5420 DATA 72, 138,72, 169, 156, 162, 15, 141 , 10 ,212 

5430 DATA 141,9,212,142,23,208,104,170,104,64,-1 

5440 RESTORE 5400JGOSUB 5640 

5450 inter$=a*:return 

5460 REM UMRECHNUNG ASCII-DISPLAY 

5470 REM 

5480 REM C 1 ASCII IN Vv 

5490 REM C 1 DISPLAY OUT 

5500 IF C<32 THEN C=C+64 J RETURN \ \ 

5510 IF C<96 THEN C=C-32 \ RETURN \ ' 

5520 IF CC128 THEN RETURN 
5530 IF C<160 THEN C=C+64 J RETURN \ \ 

5540 IF C<224 THEN C=C-32 t RETURN \\ 

5550 RETURN (f\ — 

5560 REM UMRECHNUNG DISPLAY-ASCII V) W""’' 

5570 REM -'Sy — 1 

5580 IF C<64 THEN C=C+32 t RETURN 
5590 IF C<96 THEN C=C-64 JRETURN 

5600 IF C<128 THEN RETURN r - - 

5610 IF C<192 THEN C=C+32 \ RETURN 
5620 IF C<224 THEN C=C-64 J RETURN 
5630 RETURN ■ ■■ 

5640 REM STRING ERZEUGEN 

5650 REM 

5660 A$(1)=CHR$(0) J A$ ( 255 ) =CHR$ ( 0 ) 

5670 A$(2)=A$ 

5680 ZAEHLER=1 

5690 READ DtIF D=-l THEN RETURN 
5700 A$ ( ZAEHLER ) =CHR$ ( D ) 

5710 POKE 53279,0 

5720 ZAEHLER=ZAEHLER+ 1 1 GOTO 5690 

5730 REM TITEL 

5740 REM 

5750 POKE 54276,15 

5760 A*=" ZEICHENEDITOR 1985 Honeconputer ZE 
Puter " 

5770 ZAEHLER=1536 

5780 FOR 1=1 TO LEN ( A$ ) 5810 POKI 

5790 C=ASC ( A$ ( I , I ) ) 5820 NEX‘ 

5800 GOSUB 5460 5830 RETl 




Honeconputer ZEICHENEDITOR 1985 Honecow 


5810 POKE ZAEHLER, C: 
5820 NEXT I 
5830 RETURN 


ZAEHLER=ZAEHLER+1 
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Wer ist der Schnellste im ganzen 

Land? 

CPU testete die Geschwindigkeit von 28 Home- und Personalcomputern 


In CPU 3/85 haben wir das 
Testergebnis unseres großen 
Benchmarktests mit 17 Rech- 
nern veröffentlicht. In der 
Zwischenzeit haben wir eini- 
ge neue Rechner getestet und 
können nun die Ergebnisse 
von 28 Computern abdruk- 
ken. Diesmal konnten wir 
auch die neuen MSX- Rech- 
ner sowie zwei weitere neue 
Computer berücksichtigen. 
Bei der Vorstellung des PC 
1 28 und des Atari 1 30 XE auf 
der Hannover-Messe haben 
wir diese brandneuen Rech- 
ner den Benchmark-Pro- 
grammen unterworfen. Hier 
sind die Testprogramme und 
die Ergebnisse: 


Benchmark I: 

10 FOR 1=1 TO 100 
20 A=SQR (1) 

30 A=SIN (I) 

40 A=l/I 
50 NEXT 1 
60 PRINT „FERTIG 
70 END 


Benchmark II: 

10 FOR 1=3 TO 199 STEP 2 
20 FOR J=3 TO SQR (I) 
STEP 2 
30 A=I/J 

40 IF INT (A)=A THEN 70 
50 NEXT J 
60 PRINT I 
70 NEXT I 
80 PRINT „FERTIG" 

90 END 


Name 

Benchmark I 

Benchmark II 

Acorn BBC 

4.1 

3.1 

Acom Electron 

6.1 

4.8 

Alphatromc PC 

21.5 

19.5 

Apple II 

8.1 

8.7 

Atari 600 

18.4 

17.1 

Atari 800 XL 

18.4 

17.1 

Atari 1 30 XE 

19.1 

16.8 

Casio FP-200 

17.7 

15.3 

Casio FP-1000 

8.3 

21.2 

CE-TEC MPC 80 MSX 

21.9 

18.0 

Commodore C-16/1 16 

7.9 

9.3 

Commodore VC20 

7.7 

8.0 

Commodore C64 

9.1 

9.7 

Commodore PC 128 

9.8 

1 1.5 

Commodore Plus4 

8.0 

9.0 

Fujitsu FM 7 

3.0 

5.5 

IBM PC 

4.3 

5.3 

Laser 3 1 0 

8.3 

11.2 

Laser 2001 

5.3 

6.5 

Schneider CPC 464 

4.7 

6.5 

Sharp MZ 800 

6.3 

6.5 

Sinclair Spectrum 

17.6 

19.0 

Sony Hit-Bit MSX 

22.4 

17.8 

S VI 318/328 

27.9 

23.7 

SVI 728 MSX 

21.9 

18.0 

TI 99/4A 

26.8 

31.1 

VZ 200 

7.8 

9.0 

Z9001 (VEB Robotron) 

5.6 

10.0 

(Alle Zeitangaben in Sekunden und ohne Gewähr!) 

Neuer Spitzenreiter bei Test I 

im gleichen Zeitbereich. 

ist ganz klar der Fujitsu FM 7. 

Der neue (kleine) Atari 130 

der bereits seit 1 bis 2 Jahren 

XE, der Nachfolger des 800 

auf dem Markt ist. Er besitzt 

XL, hat in 

etwa die gleiche 

eine 6809 - CPU und ist mit 

Rechengeschwindigkeit wie 

Hilfe einer Z-80-Erweiterung 

sein Vorgänger. Auch der PC 

auch CP/M-fähig.' 

128 von Commodore hat im 

Überrascht waren wir Uber 

1 28er-Modus scheinbar keine 

das schlechte Abschneiden 

größere Geschwindigkeit als 

der MSX-Rechner. Die drei 

der C 64. obwohl seine Ergeb- 

getesteten Geräte lagen alle 

nisse keineswegs zu den Ent- 


CPU-Club- Vorstellung: 

User-Club 


Wir. das sind ca. 20 Leute mit 
dem MZ-700. Unsere Aktivi- 
täten entsprechen denen der 
anderen Clubs. Wir treffen 
uns einmal im Monat zum 
Erfahrungsaustausch und 


verbreiten ein Clubinfo. Wir 
arbeiten mit Basic/Pascal 
und CP/M und suchen lau- 
fend Mitglieder vorwiegend 
aus dem Raum Karlsruhe. 
Wir sind dem Dachverband 


VDC (Verband deutscher 
Computer-Clubs) ange- 
schlossen und suchen auch 
ganze Clubs, die sich in Lan- 
desverbänden organisieren 
I wollen. 


täuschungen zu zählen sind. 
Auf der Hannover-Messe 
hatten wir auch die Möglich- 
keit. den Z9001 vom VEB 
Robotron aus der DDR zu 
testen. Das Ergebnis können 
Sie der Tabelle entnehmen. 
Es ist uns nicht bekannt, ob 
dieser Homecomputer auf 
dem bundesdeutschen Markt 
vertrieben wird. 

Leider konnte der 68000- 
Rechner Atari ST 520 noch 
nicht getestet werden, da auf 
dem CEBIT-Stand des Her- 
stellers keine endgültige Ba- 
sic-Version vorgeführt wer- 
den konnte. 

Zu den Benchmark-Tests all- 
gemein muß noch gesagt wer- 
den, daß die Ergebnisse nie- 
mals die realen Verhältnisse 
fehlerfrei wiedergeben kön- 
nen. Die Ergebnisse einzelner 
Rechner hängen unter ande- 
rem auch von der Rechenge- 
nauigkeit ab. So hat der 
Z9001 nur eine Genauigkeit 
von 6 Stellen, während der 
Apple II auf 9 Dezimalstellen 
genau rechnet, was natürlich 
weitaus mehr Zeit in An- 
spruch nimmt. Benchmarks 
sagen auch nichts über Gra- 
phikfähigkeit und Tastatur 
aus. doch diese Details kann 
man Prospekten und „nor- 
malen" Computertests ent- 
nehmen, während Geschwin- 
digkeitsvergleiche auf so brei- 
ter Basis bisher (unseres Wis- 
sens) noch nicht veröffent- 
licht worden sind. 


Sharp- 


Anschrift: 

Sharp- User-Club 
Dornröschenweg 15 
7500 Karlsruhe 21 
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Schneider: CPC-PAINTER 

Der Schneider CPC 464 ist grafisch hochtalentiert - doch was hilft's, wenn Sie nicht das richtige Programm haben, um diese 
künstlerischen Fähigkeiten auch voll auszunutzen? Der CPC-PAINTER schafft hier Abhilfe! 


Sobald Sie das nicht allzu lan- 
ge Programm abgetippt ha- 
ben und es mit RUN starten, 
sehen Sie eine kleine Aus- 
wahlliste. Die Nummer 3, 
„Beenden“, scheidet als 
Wahlmöglichkeit vorläufig 
aus, denn sonst hätten Sie 
sich von vornherein nicht die 
Mühe des Abtippens ge- 
macht. Nummer 2, „Laden", 
klingt so, als ob da eine Datei 
vorhanden sein müßte. Muß 
auch, ist aber nicht. Also ma- 
len Sie zuerst ein Bildchen, 
mit der Nummer 1. 

Das Menü verschwindet, der 
Bildschirm wird schwarz, 
und am unteren Bildschirm- 
rand erscheint ein weißer Bal- 
ken. In Wirklichkeit sind das 
einzelne Karos - Ihre Farb- 
töpfe, vorerst alle mit weißer 
Farbe gefüllt. Tippen Sie ein 
T, und der erste Farbtopf be- 
ginnt zu blinken. Ein Druck 
auf die Rechts- oder 
Linkspfeil-Taste, und ein an- 
derer Topf blinkt. Betätigen 
Sie eine beliebige Taste (gün- 
stig, weil greifbar, liegen die 
Leertaste oder die Kommata- 
ste des Zahlenblocks), und 
die Farbe ändert sich. Sollte 
der Farbtopf scheinbar ver- 
schwinden - keine Sorge: Sie 
haben ihn nur mit schwarzer 
Farbe gefüllt. Wenn Sie sich 
für eine Farbe entschieden 
haben, können Sie mit Links- 
oder Rechtspfeil eine weitere 
Farbe festsetzen oder mit 
COPY abschließcn. 

Erst mit F aber können Sie 
aus Ihren Farbtöpfen einen 
auswählen, mit dessen Farbe 
Sie zeichnen wollen. Mit 
Links- oder Rechtspfeil fin- 
det die Wahl statt, irgendeine 
Taste bestätigt. Wenn Sie 
schon einen Teil des Bildes 
gemalt haben, werden Sic 
feststellen: Die in einer be- 
stimmten Farbe gemalten 
Bildteile blinken bei T und F 
ebenfalls mit. Das ist prak- 
tisch, denn nehmen wir an. 
Sie haben mit derselben Tinte 


eine grüne Eingangstür zu ei- 
nem Haus und eine grüne 
Baumkrone gezeichnet. 
Wenn Sie nun beides blinken 
sehen, werden Sie merken, 
daß Sie sich nicht mehr für 
eine violette Haustür ent- 
scheiden können, indem Sie 
die Tinte nachträglich än- 
| dem, da sonst der Baum 
| höchst unnatürlich aussähe. 
Nach diesem Vorgeplänkel 
kommen wir nun endlich 
zum Zeichnen. L ist ein wich- 
tiger Befehl: Mit ihm können 
Sie. handgesteuert, eine Lime 
ziehen, und zwar von der mo- 
mentanen Position des Gra- 
fikcursors (das ist der 
blinkende Punkt, der nach 
dem Tippen eines Grafikbe- 
j fehls auftaucht) aus. Es stehen 
| Ihnen acht Richtungen zur 
j Verfügung, die mit den Ta- 
j sten des ZifTemblocks angc- 
; sprachen werden. Die Zahlen 
im Bereich der 5 stellen diese 
Richtungen dar. mit der Ta- 
ste 5 können Sie das Zeichnen 
der Linie abbrechen. Um ex- 
! akt zeichnen zu können, ha- 
ben diese Tasten keine Wie- 
[ derholungsfunktion. Für län- 
! gere Linien können Sie je- 
doch die entsprechenden Ta- 
sten der Schreibmaschinen- 
tastatur benutzen, wo diese 
Funktion existiert. 

B ist ein verwandter Befehl, 
nur daß Sie hier Linien in - 
normalerweise - dreifacher 
Breite haben. Allerdings mit 
| Ausnahme bestimmter Rieh- 
j tungen. Damit lassen sich tol- 
| le dreidimensionale Effekte 
| erzielen. Experimentieren Sie 
- doch damit! Gelöscht wird 
beim PAINTER ausschließ- 
| lieh durch Übermalen - und 
| auch hier ist B von Nutzen, 
j wenn es um größere Flächen 
geht. 

I M bedeutet „move“ und be- 
j wegt lediglich den Grafikcur- 
| sor an eine Stelle auf dem 
! Bildschirm. Dazu werden die 
| Pfeiltasten verwendet. Wenn 
Sie dort angelangt sind, wo 


Sie hinwollten, betätigen Sie 
COPY. Von der erreichten j 
Stelle aus können Sie dann [ 
mit L oder B eine Linie zie- I 
hen. Alle nun folgenden Be- 
fehle beinhalten bereits die 
Bewegung an den Anfangs- 
punkt; hier ist „Move" nicht 
nötig. 

j S für „Spiegeln" ist ein beson- 
ders praktischer Befehl: Sie 
können vollständig achsen- 
symmetrische Gebilde erzeu- 
gen. indem Sie eine Figur an 
einer horizontalen oder verti- 
kalen Achse spiegeln. Steuern 
Sie mit den Pfeilen an den 
Anfangspunkt der Achse und 
betätigen Sie COPY, und 
zwar - das ist wichtig! - zwei- 
mal. Mit einer der Pfeiltasten 
legen Sie sodann die Rich- 
tung der Achse fest. Betätigen 
Sie die Taste so lange oder so 
oft. bis die Achse (blinkend 
eingeblendet) die gewünschte 
Länge erreicht hat. Dann 
folgt wieder ein Druck auf 
COPY. Steuern Sie als letztes 
den Grafikcursor von der 
Achse weg (wieder mit den 
Pfeiltasten, versteht sich - 
das wird im folgenden nicht 
mehr extra erwähnt werden), 
und zwar so. daß Sie damit 
die Höhe (oder Breite) des 
Vierecks anzeigen, das ge- 
spiegelt werden soll. Ein Bei- 
spiel zur Verdeutlichung: Sie 
haben eine horizontale Ach- 
se. d. h. von links nach rechts. 
Steuern Sie den Grafikcursor 
unter die Achse, wobei seine 
horizontale Position keine 
Rolle spielt, so wird alles, was 
von dem Rechteck mit der 
Achse als Grundlinie und 
dem Abstand Cursor - Achse 
als Höhe eingegrenzt wird, an 
der Achse nach oben gespie- 
gelt. Wenn Sie glauben, das 
j noch nicht ganz verstanden 
! zu haben, probieren Sie's aus. 
Nehmen Sie nun einmal an. 
Sie möchten einen Wald aus 
kleinen Laub- und Nadelbäu- j 
men zeichnen. Nun ist es aber 
! recht eintönig, zwanzig Bäu- | 


me jeder Sorte, die alle gleich 
aussehen. auf den Bildschirm 
zu malen. Der Befehl U löst 
Ihr Problem: Damit können 
Sie rechteckige Bildschirm- 
ausschnitte vervielfachen. 
Steuern Sie nacheinander die 
linke untere und die rechte 
obere Ecke des Ausschnitts 
an, den Sie kopieren wollen, 
und betätigen Sie jeweils 
COPY. Fahren Sie dann mit 
dem Cursor an die Stelle, an 
der die linke untere Ecke spä- 
ter stehen soll. Ein weiterer 
Druck auf COPY. und in ein 
paar Sekunden steht Ihr 
Wald, wobei Sic nur jeweils 
einen einzigen Laub- und Na- 
delbaum zeichnen mußten! 
Rächen ausmalen kann der 
PAINTER natürlich auch. A 
lautet sinnigerweise der Be- 
fehl dafür. Wichtig ist, daß 
die Fläche vollständig von 
der Farbe, in der Sie sie aus- 
malen wollen (d. h. der aktu- 
ellen Zeichenfarbe), um- 
rahmt ist, sonst läuft die Far- 
be aus und verunstaltet evtl, 
das ganze Bild. Für solche 
und andere Situationen ha- 
ben Sie jedoch eine „Not- 
bremse": zweimal ESC. Sie 
hören einen kurzen Ton und 
können den nächsten Grafik- 
befehl eingeben. Jede laufen- 
de Operation wird dadurch 
gestoppt und der Cursor wie- 
der nach links unten gesetzt. 
Aber zurück zum Ausmalen: 
Eine Räche wird von der 
Cursorposition aus zunächst 
senkrecht nach oben abge- 
sucht. Wird dort ein Punkt 
der Umrandung gefunden, so 
geht die Suche in gleicher 
Weise nach unten weiter. Es 
ist dann natürlich ungünstig, 
wenn Sie z. B. von der Ecke 
eines Dreiecks aus dieses 
Dreieck aufiullen wollen, da 
der Computer schon nach 
wenigen Reihen auf die Be- 
grenzung stoßen wird. Steu- 
ern Sie vielmehr immer die 
höchsten bzw. breitesten Stel- 
len, bei Figuren mit vielen 
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Bögen die schmälsten an und 
füllen Sie von dort aus auf. 
Bei komplizierten Formen 
kann es nötig sein, daß Sie die 
Fläche in mehreren Schritten 
von verschiedenen Stellen 
aus ausmalen müssen. 


C ist ein Befehl, den Sie weni- [ 
ger oft benötigen werden. Da- 
mit ist cs möglich, die Farbe j 
des Grafikcursors zu ändern, | 
falls dieser auf einer be- 
stimmten Flintergrundfarbe 
schlecht zu erkennen sein { 
sollte. Sobald Sie C getippt 
haben, erscheint der Cursor I 
links unten über den Farb- 
töpfen. Jede beliebige Taste 
ändert seine Farbe, COPY 
beendet. Sollte er kurz einmal 
verschwinden, so haben Sie 
gerade die Farbe Schwarz er- 
wischt. Ein weiterer Tasten- 
druck und Sie sehen ihn wie- 
der blinken. 


Die Taste R werden Sie als 
eine praktische H llfe schät- 
zenlernen: Damit können Sie 
nämlich die oft benötigte 
Form eines Rechtecks zeich- 
nen. Leider können Sie es 
nicht rotieren lassen, um z. B. 
Rauten zu erzeugen, aber das 
ist auch nur selten vonnöten. 
Steuern Sie, um ein Rechteck 
zeichnen zu lassen, einfach 
die untere linke Ecke an und 
fixieren Sie sie mit der 
COPY-Taste. Wenn Sie nun 
mit den Pfeiltasten weiter- 
steuern. sehen Sie die Ecke 
blinken. Kennzeichnen Sie 
auf dieselbe Weise die linke 
obere Ecke. Mit Betätigen 
von COPY erscheint auch 
schon das Rechteck. 




Neben der Fähigkeit. Recht- 
ecke zeichnen zu können, er- 
laubt Ihnen das Programm 
auch die automatische Dar- 
stellung von Ellipsen. O (für 
„Oval“) ist dafür die richtige 
Taste. Sie müssen hier, wie 
bei R, einige Punkte markie- 
ren. Natürlich beginnen Sie j 
mit dem Mittelpunkt. Da- 
nach steuern Sie nach rechts I 
oder links und legen so die 
Länge einer Halbachse der j 
Ellipse fest. Flierbei können 
Sie zwar nach oben oder un- j 
ten steuern; beim Zeichnen 
wird jedoch nur die seitliche | 
Abweichung vom Zentrum 
berücksichtigt. Sobald diese 
Achse gesetzt ist, steuern Sie 


nach oben oder unten (und 
zwar wieder vom Mittel- 
punkt aus; der Cursor spnngt 
automatisch zurück) - wobei 
Sie hier entsprechend auch 
links oder rechts steuern kön- 
nen, ohne daß dies berück- 
sichtigt wird - und legen die 
Länge der zweiten Halbachse 
fest. Gleich nach dem Druck 
auf COPY sehen Sie. wie die 
Ellipse gezeichnet wird. 

Auch n-Ecke können Sie 
zeichnen, allerdings nicht au- 
tomatisch. Das hat den Vor- 
teil, daß auch unregelmäßige 
Formen möglich werden. E 
heißt der benötigte Befehl. Fi- 
xieren Sie, wie gehabt, einen 
Eckpunkt mittels der Pfeile 
und COPY'. Wenn Sie an- 
schließend die Leertaste betä- 
tigen. können sie eine weitere 
Ecke setzen. Mit jeder ande- 
ren Taste (bewährt hat sich, 
der Bequemlichkeit halber, 
ein zweiter Druck auf COPY) 
werden die Eckpunkte mit- 
einander verbunden, und 
zwar in der Reihenfolge, in 
der sie gesetzt wurden. Der 
letzte Punkt wird dabei auto- 
matisch mit dem ersten ver- 
bunden, damit eine geschlos- 
sene Figur entsteht. Wenn Sie 
die Markierungen dicht ge- 
nug setzen, werden auch Wel- 
lenzüge möglich. Maximal 
können Sie 80 Punkte plazie- 
ren; nach dem achtzigsten 
wird die Figur automatisch 
gezeichnet. Aber so viele be- 
nötigen Sic selten 

Wahrscheinlich benötigen Sie 
aber nicht immer eine ge- 
schlossene Figur. Manchmal 
kann die Verbindung vom 
letzten zum ersten- Punkt so- 
gar störend wirken, weil man 
sie wieder ausradieren müß- 
te. Die Taste V macht Ihnen 
hier das Leben leichter. Sie 
bedeutet „Verbinde". Die 
Eingabe der Punkte erfolgt 
wie bei E; nur die erwähnte 
Verbindungslinie wird nicht 
gezeichnet. 

Was Ihnen nun noch fehlt, ist 
eine bequeme Möglichkeit, 
Strecken zu zeichnen. Da S 
schon belegt ist. wurde als 
Abkürzung G gewählt - was 
„Gerade" bedeuten soll, auch 
wenn mancher Mathematiker 
da protestieren mag. Prak- 
tisch ist G dasselbe, als ob Sie 


j E an wenden würden und nur 
j zwei Punkte setzten. Nur 
wird hier die Strecke gezcich- 
! net. sobald der zweite Punkt 
plaziert ist. und die Betäti- 
| gung der Leertaste entfällt. 

Also: Komfortabler und als 
| Abkürzung leichter zu mer- 
ken. 

| Zwei weitere Optionen run- 
den das Ganze ab. W („Weg- 
j werfen“) ist eine davon. Ein 
Druck auf diese Taste löscht 
die Grafik und zeigt wieder 
die Hauptauswahl. Damit Sie 
aber Ihre Grafiken auch ab- 
speichem können, wurde 
noch die Abkürzung K einge- 
führt. Logischerweise bedeu- 
tet dies „Kassette" und ge- 
stattet Ihnen, eine Grafik auf 
dem dadurch bezeichneten 
Medium zu speichern. Geben 
Sic einen kurzen Namen für 
Ihr Bild an und betätigen Sie , 
unbedingt die REC- und 
PLAY'-Taste, bevor Sie den 
Namen ENTER bestätigen. 1 
Beachten Sie auch, daß Sie 
beim Zeichnen noch 2-3 I 
Punkte über den Farbtöpfen 
freilassen, sonst wird bei der ' 
Texteingabc der untere Rand 
der Zeichnung gelöscht. 

Jetzt kommt auch Punkt 2 j 
des Hauptmenüs ins Spiel. | 
Damit können Sie Grafiken 
wieder laden. Auch hier un- [ 
bedingt zuerst die PLAY-Ta- 
ste und dann ENTER betäti- 
gen. Alle Files werden näm- 
lich. um die Grafik nicht zu 
verunstalten, mit einem Aus- 
rufungszeichen (!) vor dem 
Namen gespeichert, das Sie 
jedoch nicht eingeben müs- 
sen. Beim Laden bleibt der 
Bildschirm zunächst 

schwarz, bevor das Bild ur- 
plötzlich in voller Farben- 
pracht erscheint. Wenn Sie 
sodann die Taste B betätigen, 
können Sie das Bild weiterbe- 
arbeiten. Jede andere Taste 
zeigt das Hauptmenü. 

Gezeichnet wird übrigens im- | 
mer mit Mode 0, wobei Sie 
dreizehn Farben zur Verfü- 
gung haben. Die übrigen drei, 
über deren Verbleib Sie sich 
vielleicht wundem werden, 
benötigt das Programm für 
den Bildschirm, den Grafik- 
cursor und Textanzeigen. 

Einige Tips für Ihre Bilder: 
Am besten gehen Sie immer I 


: von einfachen Grundformen 
j aus, auf denen Sie dann auf- 
bauen. Zum Beispiel: Für 
( eine Landschaft mit Bergen 
am Horizont setzen Sie ein 
; grünes und ein blaues Recht- 
( eck aufeinander (R) und fül- 
len diese in der jeweiligen 
Farbe aus (A). Mit E können 
j Sie am oberen Rand des grü- 
nen Rechtecks einen Wellen- 
zug darstellen, den Sie unten 
mit der Rechteckkante bün- 
' dig abschließen. Das Ganze 
wird dann ebenfalls ausge- 
füllt. Sicher haben Sie aber 
selbst noch eine Menge 
■ Ideen. 

Zum Abschluß noch eine 
praktische Anwendung: er- 
zeugen Sie mit dem CPS- 
PAINTER Titelbilder für 
selbstgeschriebene, längere 
Programme. Speichern Sie 
folgendes kurzes Programm 
am Anfang einer Kassette. 

10 MODE 0: FÜR i=() TO 
15: INK i, 0: NEXT i: 
BORDER 0: PAPER 0: 
CLS 

20 LOAD "!(hier der Name 
des Bildes)", &C000 
30 OPENIN"! (hier der 
Name des Bildes) .1": For 
i = 3 TO 15: INPUT ^.f: 
INK i.f: NEXT i: CLO- 
SEIN 

40 RUN "!(hier der Name 
Ihres Programms)" 

Hinter diesem Programm 
speichern Sie mit dem 
PA1NTER ein passendes Ti- 
telbild ab und danach 
schließlich Ihr Programm. 
Der Benutzer muß nun nur 
noch (bei zurückgespulter 
Kassette) das Band starten, 
wie das für die Begrüßungs- 
kassette im Handbuch be- 
schrieben ist, und er wird au- 
tomatisch von einem Titel- 
bild begrüßt. Das Abspei- 
chem kann stets mit SPEED 
WRITE 1 geschehen, da auch 
der PAINTER die Grafiken 
so ablgegt. 

Kurzreferenzkarte 

CPC-Painter: 

siehe S. 40 
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Hauptauswahl 

1: Zeichnen (s. dort) 

2: Laden: Füenamen ange- 
ben (! zu Beginn nicht nö- 
tig); noch vor Druck auf 
ENTER die PLAY-Taste 
einrasten. B verzweigt in 
Teil „Zeichnen“ (s. u.), an- 
dere Taste Hauptmenü 

3: Beenden 

Zeichnen 

T: Tinte setzen. „Farbtopf' 
mit Linkspfeil und 

Rechtspfeil wählen (aktu- 
elle Tinte blinkt); bei. Ta- 
ste ändert Farbe, COPY 
beenden. 

F: Farbe wählen. Mit 

Linkspfeil und Rechtspfeil 
Farbtopf wählen, bei. Ta- 
ste akzeptiert. Beachte: T 
füllt nur die Farbtöpfe, 
erst F wählt die Farbe zum 
Zeichnen! 

L: Linie ziehen. Gesteuert 
wird mit den Zahlenta- 
sten; der Stern um die 5 
gibt die Richtung an. die 5 
selbst beendet. Für Wie- 
derholfunktion die entspr. 
Tasten der Schreibma- 
schinentastatur benutzen! 

B: Breite Linie. Steuerung 
wie bei L; verwendet für 
dreidimensionale Effekte 
oder zum großflächigen 
„Radieren". 

M:Move. Pfeile bewegen den 
Grafikcursor, COPY be- 
endet. 

S: Spiegeln. Anfangspunkt 
der Achse ansteuem, dann 
zweimal COPY. Richtung 
und Länge der Achse mit 
Links/Rechts- bzw. Auf/ 
Ab-Pfeil bestimmen, mit 
COPY beenden. Punkt 


mit Pfeiltasten im rechten 
Winkel von der Achse 
wegbewegen und mittels 
COPY die Ausschnittbrei- 
te bzw'. -höhe festlegen. 

U: Übertragen. Mit Pfeilen 
und COPY der Reihe nach 
ansteuem und fixieren: 
linke untere und rechte 
obere Ecke des Quellaus- 
schnitts sowie linke untere 
Ecke des Zielausschnitts. 

A: Ausfüllen. In eine von der 
Zeichenfarbe vollständig 
umrahmte Fläche steuern. 
COPY startet. Möglichst 
immer die schmälste bzw. 
höchste Stelle aufsuchen, 
evtl. Ausfüllen in mehre- 
ren Schritten. 

C: Cursorfarbe. Cursor er- 
scheint links unten. Bel. 
Taste ändert Farbe. COPY 
akzeptiert. 

R: Rechteck. Linke untere 
und rechte obere Ecke fi- 
xieren. (Pfeile. COPY) 

O: Oval. Erst Mittelpunkt 
setzen, dann nach rechts/ 
links 1. Halbachse. Cursor 
springt wieder zum Mit- 
telpunkt. Dann nach oben/ 
unten 2. Halbachse set- 
zen. Pfeile und COPY be- 
nutzen. 

E: Eck. Bis zu 80 Punkte wer- 
den in der Reihenfolge des 
Setzens miteinander ver- 
bunden. der letzte auto- 
matisch mit dem ersten. 
Punkt setzen mit Pfeilen 
und COPY. dann Leerta- 
ste. um einen weiteren 
Punkt zu plazieren, oder 
erneut COPY (bzw. bei. 
andere Taste), um das n- 
Eck zu zeichnen. 

V: Verbundener Linienzug. 


Wie E, nur ohne Verbin- 
dung vom letzten zum er- 
sten Punkt. 

G: Gerade, d. h. eigentlich 
Strecke. Anfangs- und 
Endpunkt mit Pfeilen und 
COPY setzen. 

i W:Wegwerfen. Löscht ge- 
samte Grafik, kehrt zu- 
rück zum Grundmenü. 

K: Kassettenspeicherung. 


Namen eingeben und 
noch vor Druck auf EN- 
TER die REC- und 
PLAY-Taste betätigen. 
Achtung: Text benötigt 
unteren Bildschirmrand, 
dort nichts zeichnen! 
„Notbremse“: Unerwünschte 
Operationen können durch 
ESC-ESC abgebrochen wer- 
den. 


Variablenliste CPC-Painter 


ti( L. 1 3) 
eckx(1..80) 
ecky(1..80) 
ecke(1..8D) 

ij 

c X 
tX 
nX 


x/y 

cf 

bf 


tin 

zf 

ef 


xs/ys 

efX 


xdir/vdir 

tlX 


xe/ye 


z 

xu/yu 
xo/yo 
| eu/eo 
lx 


eu 


xm/ym 

rl/r2 

ez. 

ax/ay 


Zum Zeichnen verwendete Tinten 
x-Koordinaten der Eckpunkte bei E und V 
dto., y-Koordinaten 

Farbe, die ursprünglich an (eckx.ecky) stand 
Laufvariablen in Schleifen 
als Eingabe erlaubte Tasten 
Taste, welche betätigt wurde 
Dateiname 

Koordinaten des Grafikcursors 
Farbe des Cursors 
Bildschirmfarbe (immer 0) 

Index für gewählte Tinte 
INK zum Zeichnen 

urspr. Farbe an der Position des Grafik- 
Virsors 

enth. x/y zur späteren Wiederverwendung 
durch Spiegelachse verdeckte Bildschirm- 
farben 

Richtung für Spiegelachse 

wie tX; verwendet, wenn tX noch benötigt 

wird 

wie xs/ys: verwendet, wenn xs/ys noch be- 
nötigt 

Zählvariable 

linke untere Ecke bei U oder R 

rechte obere Ecke bei U oder R 

linke untere Ecke des Zielquadrats bei U 

Start einer Linie bei A 

Ende einer Linie bei A 

bei R: Farbe an der rechten unteren Ecke 

Koordinaten des Mittelpunkts bei O 

Radien bei O 

Zähler für Ecken bei E oder V 
Anfangspunkt der Strecke bei G 


— 




100 

110 

CPC - PAINTER 

Version 1.2 

120 

130 

' (c) 1985 by BIG BUG Software 

* 

140 

' Alwin Ertl 


150 

' Mais 66 


160 

' 8497 Neukirchen 

*** 

170 

Tel. 09947/468 

% 

180 

190 

200 

210 

' Vorher ei tun gen 

DIM ti ( 13) ,eckx (80) ,ecky (80) ,ecke (80) : MODE OsBQRDER 0: INK 0,0:INK 1,26 iINK 2 

,26, 

OsSPEED INK 15, 15: FOR i=3 TO 15: INK 

i ,26: ti (i-2) 

=26: 

220 

230 

NEXT i: SPEED WRITE 1 

ON BREAK GOSUB 1670 
' Menue 
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240 CLSiPEN 1 : PRINT TAB(4)j"CPC PA INTER" : PRINT: PR INT" by BIG BUG Software" i PRINT 
:PRINT:PRINT:PRINT 

250 PRINT " 1 : Zeichnen" i PRINT: PRINT"2: Laden" : PRINTs PRINT"3: Ende" : PRINT: PRINT: PR 
INT : PRINT 

260 e*=" 123" : GGSUB 1540:PRINT t*;:0N VAL(t*) GOTO 360,280,340 
270 'Laden 

280 FOR i =3 TO 15: INK i,0:NEXT i 

290 CLS: INPUT "Name" j n*: n*=UPPER* <n*> : IF LEFT* (n* , 1 ) < >" ! " THEN n*=" !"+n* 

300 CLS: LOAD n* , &C000: OPENIN n*+" . I" : FOR i=l TO 13: INPUT #9, ti <i > : INK 2+i,ti(i): 
NEXT i: CLOSEIN 

310 t*=INKEY*:IF t*="" THEN 310 

320 IF UPPER* (t*) ="B" THEN 370 ELSE 240 

330 'Ende 

340 CLS: PRINT"Auf Wi edersehen PRINT: PRINT: PRINT: END 
350 'Zeichnen 
360 CLS 

370 x=0: y=10i cf =26: bf =0: tin=l : zf =3 

380 FOR i =3 TO 15:F0R j=-19+(i-2> *20 TO < i -2) *20: MOVE j,0:DRAW j,8,i:NEXT j,i 

390 SOUND 1 ,200, 10, 14: e*="TFLBMSUACROEVGWK" : GOSUB 1540:0N INSTR(e*,t*) GOTO 410, 

480 , 540 , 650 , 760 , 780 , 990 , 1 040 ,1140,1190,1 230 , 1 300 , 1 38 

0,1450,1480,1500 

400 'Tinte setzen 

410 INK 2+tin ,ti (tin) ,bf 

420 t*=INKEY*:IF t*="" THEN 420 ELSE INK 2+ti n , ti (ti n > 

430 IF t*=CHR* (224) THEN 390 

440 IF t*=CHR* (243) THEN tin=tin+l:IF tin>13 THEN tin=l:GOTÜ 410 ELSE 410 

450 IF t*=CHR* (242) THEN tin=tin-l:IF tin<l THEN tin=13:G0T0 410 ELSE 410 

460 ti (tin) =ti (tin) +1 : ti (tin) = (ti (tin) MOD 27):G0T0 410 
470 'Farbe waehlen 
480 INK zf ,ti (zf -2) ,bf 

490 t*=INKEY*:IF t*="" THEN 490 ELSE INK zf,ti(zf-2) 

500 IF t*=CHR* (243) THEN zf=zf+l:IF z-f >15 THEN zf=3:G0T0 4B0 ELSE 480 

510 IF t*=CHR* (242) THEN zf=zf-l:IF z-f<3 THEN z-f = 15:G0T0 480 ELSE 480 

520 INK z-f ,ti (z-f —2) : GOTO 390 
530 'Linie ziehen 

540 e-f =TEST (x ,y) : PLOT x ,y, 2: e*=" 123456789" : GOSUB 1540:PL0T x,y,z-f:ON VAL (t*) GOT 

0 550 , 560 , 570 , 580 , 390 , 590 , 600 ,610, 620 

550 x =x -4 : y=y-2: GOTO 630 

560 y=y-2: GOTO 630 

570 x=x+4: y=y— 2: GOTO 630 

580 x=x-4: GOTO 630 

590 x =x +4 : GOTO 630 

600 x=x-4: y=y+2: GOTO 630 

610 y=y+2: GOTO 630 

620 x=x+4: y=y+2 

630 DRAW x,y, z-f: GOTO 540 

640 'Breite Linie 

650 e-f =TEST (x ,y) : PLOT x , y , 2 : e*=" 123456789" : GOSUB 1540:PL0T x , y , e-f : x s=x : ys=y : ON V 

AL(t*> GOTO 660,670,680,690,390,700,710,720,730 

660 x=x-4: y=y-2: GOTO 740 

670 y=y-2: GOTO 740 

680 x=x+4: y=y-2: GOTO 740 

690 x=x-4: GOTO 740 

700 x=x+4: GOTO 740 

710 x=x-4: y=y+2: GOTO 740 

720 y=y+2: GOTO 740 

730 x=x+4: y=y+2 

740 DRAW x , y , z -f : PLOT xs+4,ys+2,zf : DRAW x +4 , y+2 , z -f : PLOT x s-4 , ys-2 , z -f : DRAW x-4,y-2 
, z-f: GOTO 650 
750 'Move 

760 GOSUB 1570: IF t*< >CHR* < 224 ) THEN 760 ELSE 390 
770 'Spiegeln 

780 GOSUB 1570: IF t*< >CHR* ( 224 ) THEN 780 

790 GOSUB 1570: e-f *="": ef *=e-f*+CHR* (e-f ) :xs=x:ys=y: PLOT x,y,2 
800 e-f ♦="": e-f *=e-f*+CHR* (ef ): xs=x : ys=y: PLOT x,y,2 
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810 
[ 820 
B30 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 


t*=INKEY*:IF t*="" THEN 810 ELSE xdi r=0: ydi r=0 
IF t*=CHR* ( 243 ) THEN xdir=4 
THEN xdi r=-4 
THEN ydi r=-2 
THEN ydi r=2 


IF t*=CHR*(242) 
IF t*=CHR* (241 ) 
IF t*=CHR*(240> 
tl*=INKEY* 

WHILE (tl*=t* 0R 


tl*= H, *> AND LEN (e-f*) <255 


IF tl*^'" THEN tl*=INKEY*: GOTO 900 
WE ND ><+><dir,y=y+ydir,B ‘ f,=ef,+CHR * <T E ST< X’ y) > ,PL0T x ,y, 2 :tl*= 

xe=x : ye=y 


INKEY* 


GOSUB 1570: IF t*< >CHR* (224) THEN 920 
IF xdi r THEN 960 

+ i>j??E^:^ J ^,?SE^:r , ‘ 2,F0R J=x T0 xs step m-u-x 

’i^GQTo'So 1=yB T ° ^ STEP SQN< V«-y«)*2»2=z + l,PLDT xs,i , ASC (MID* (e-f * , z , 1 ) ) t NEXT 
960 FQR i=xs TO xe STEP SGN < x e-x s > *4 : FOR j=y TO ys STEP SGN (ys-y) *2: PLOT i,ys+<j 


-y+1) i TEST ( i ,y B -(j-y+l> ) sNEXT j,i 


xe STEP SGN (xe-xs) *4: z=z+l : PLOT i , ys,ASC (MID* (ef*,z , 1) ) : NEXT 


970 z =0 : FOR i=xs TO 
i : GOTO 390 
980 'Uebertragen 

990 GOSUB 1570: IF t*< >CHR* (224 ) THFN oon c, cc 

1000 GOSUB 1570, IF t*< >CHR* (224, THEN 1000 ELS^^y^o^EBT (i | £ mVI'* 


y. 


) : NEXT j , i s GOTO 390 2. PLOT x + ( i -x u) , j+ <y-yu) , TEST ( i , j 


1030 

1040 

1050 

1060 

1070 


'Aus-f uel len 

GOSUB 1570: IF t*< >CHR* (224 ) THEN 1040 ELSE sx=x:sy=v 
y _ y+2: IF TEST (x ,y) =z-f DR y>400 THEN y=sy+2:G0T0 1090 
x-x-4:IF TEST (x ,y) < >z-f AND x >=0 THEN 1060 ELSE lx=x-x=sx 
x=x+4: IF TEST (x ,y) < >zf AND x<=640 THEN 1070 ELSE rx=x:x=ex 


1080 PLOT lx ,y,z-f : DRAW rx , y , z -f : GOTO 1050 


1090 
1 100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1 180 
1190 
2 

1200 


y=y-2: IF TEST <x , y) =z-f OR y<0 THEN 390 
x=x-4: IF TEST (x ,y) < >z-f AND x >=0 THEN 1100 ELSE lx=x:x=sx 

IF TEST(x,y)Ozf AND x<=640 THEN 1110 ELSE rx=x:x=sx 
PLOT lx,y,zT:DRAW rx,y,z*:GOTO 1090 
'Cursor* arbe 

e*=TEST(0, 10) : PLOT 0,10,2 
t*=INKEY*:IF t*= H " THEN 1150 
IF t*=CHR*(224) THEN PLOT 0 , 10 , e-f : GOTO 390 
cf=c*+l:cf=(c* MOD 26) +1 : INK 2,c*,0:G0T0 1150 
'Rechteck 

GOSUB 1570, IF t*< >CHR* (224, THEN 1190 ELSE xu=x , yu=y, eu=TEST (x ,y) : PLOT x 


„i n G °^ B 1=70,IF t*OCHR*(224) THEN 1200 ELSE xo=x , yo=y , PLOT xu,yu eu 
390 xu,yu,zf : DRAW xo,yu,zf t DRAW x o , yo , z i , DRAW xu,yo,zf i DRAW xu , yu , z -f : GOTO 


'Oval 

GOSUB 


1570: IF t*< >CHR* (224) THEN 1230 ELSE 


xm 


=x : ym*y: em=TEST (x ,y) : PLOT x,y, 


1240 ELSE xr=x:yr=y:er=TEST(x,y) : PLOT > 
1260 ELSE IF y>ym THEN r2=y-ym ELSE r2= 


: ym- 


1220 
1230 
2 

1240 
2: IF 
1250 
1260 
y 

1270 

UgSto E 390 L ° T ™ 3Ä0 "> Rfl “ * <m+ COS (i ) *r 1 ( ym+SIN ( i ) *r2, zf i NEXT 

1290 'Eck 
1300 ez=0 

1310 ez=ez+l : IF ez >80 THEN ez=80:G0T0 1350 

e“?, ? yHPLD? 7 « 0 :y% t * <>CHR * <22 '' 1 THEN 1120 ELSE •9X»<«>-«..cky l .z ) .y,.ck.(.z).T 


GOSUB 1570: IF t*< >CHR* ( 224 ) THEN 
x >xm THEN rl=x-xm ELSE rl=xm-x 
x=xm: y=ym 

GOSUB 1570: IF t*< >CHR* (224) THEN 
PLOT x m , ym , em : PLOT xr,yr,er 
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1330 t*=INKEY*tIF t*="" THEN 1330 
1340 IF t* = " “ THEN 1310 

1350 FÜR 1=1 TO ez : PLOT eckx (i) ,ecky(i) ,ecke(i):NEXT i 

1360 PLOT eckx (1) ,ecky(l> ,z-f :FOR i=2 TO ez : DRAW eckx ( i > , ecky ( 1 ) , zf t NEXT i i DRAW e 
ckx ( 1 ) ,ecky ( 1 ) ,zf i GOTO 390 
1370 'Verbundener Linienzug 
1 380 ez=0 

1390 ez=ez+liIF ez >80 THEN ez=80:G0T0 1430 

1400 GOSUB 1570t IF t*< >CHR* (224) THEN 1400 ELSE eckx (ez > =x : ecky (ez ) =y: PLOT x,y,2 
1410 t*=INKEY*:IF t*="" THEN 1410 
1420 IF t*= M " THEN 1390 

1430 PLOT eckx (1) , ecky ( 1 ) , z -f : FOR i =2 TO ez i DRAW eckx < i >, ec ky < i ), z-f : NEXT i i GOTO 3 
90 

1440 'Gerade 

1450 GOSUB 1570: IF t*< >CHR* (224) THEN 1450 ELSE ax=x t ay=y : PLOT x,y,2 

1460 GOSUB 1570t IF t*< >CHR* (224) THEN 1460 ELSE PLOT ax , ay , z f t DRAW x,y,zf:GOTQ 3 

90 

1470 'Weg damit 
1480 CLEARt RUN 
1490 'Kassette 

1500 LOCATE 1 ,25t INPUT "Name"jn«sIF LEFT* (n* , 1 ) < >"! " THEN n*=" ! "+n* 

1510 FOR i =0 TO 14:M0VE O.itDRAW 640,i,0:NEXT i 

1520 n*=UPPER* (n*> t SAVE n* , b , fcCOOO , <&FFFF-S<COOO) : OPENOUT n*+" . I " : FOR i = l TO 13:P 
RINT#9,ti (i ) t NEXT i : CLOSEOUT: GOTO 380 
1530 'UP Eingabe 

1540 t*=INKEY*:IF t*="" THEN 1540 

1550 t*=UPPER*(t*) I IF INSTR ( e$ , t$) =0 THEN 1540 ELSE RETURN 
1560 'UP Graf i kcursor steuern 
1570 e-f =TEST (x ,y) : PLOT x,y,2 

1580 t*=INKEY*:IF t*="" THEN 1580 ELSE PLOT x,y,e-f 

1590 IF t*=CHR*(243> THEN x=x+4:G0T0 1630 

1600 IF t*=CHR*(242> THEN x=x-4tG0T0 1630 

1610 IF t*=CHR*(241> THEN y=y-2tG0T0 1630 

1620 IF t#=CHR* (240) THEN y=y+2tG0T0 1630 ELSE RETURN 

1630 IF x >639 THEN x=0 ELSE IF x<0 THEN x=640 

1640 IF y >399 THEN y=0 ELSE IF y<0 THEN y=400 

1650 GOTO 1570 

1660 'Abbruch 

1670 x=0: y=10« GOTO 390 


Tips und Fricks CPC-464: 
Merge-Befehl bei der Verwen- 
dung der Diskettenstation DDI-1 


Wer schon einmal mit einem mal, wenn ein Programm 
„Mcrge“-Befehl versucht hat. | nachgeladen werden soll. 
Programme miteinander zu meldet sich der Rechner mit 
verbinden, wird mit der Dis- der Fehlermeldung „EOF 
kettenstation DDI-1 schlech- met“. 

te Erfahrungen gemacht ha- \ Dies liegt daran, daß das 
ben. Im Diskettenbetriebssy- nach/uladende Programm 
stem der Floppy hat sich bei vom Diskettenbctriebssy- 
der Entwicklung ein Fehler stem, nach dem Kennzeichen 
eingeschlichen. Fast jedes- EOF (Ende der Datei $EO). 


untersucht wird. Da leider ! GRAMM“. A 
auch die Zeilennummer, Das Laden dieser Programme 
Lange und Pointer mitunter- 1 unterscheidet sich nicht von 
sucht werden, wird sehr oft den normal abgespeicherten 
diese Kennzeichnung gefun- Programmen. Der einzige 
den. Wir können dies behe- Nachteil besteht darin, daß : 
ben, indem wir Programme im ASCIl-Code abgcspei- 
als ASCII-Code auf die Dis- chertc Programme mehr 
ketten schreiben. Speicherplatz auf der Disket- 

Beispiel: SAVE „PRO- l.te belegen. 
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ZX-Spectrum: Mit Maschinen- 
sprache zum Bildschirm 


Teil 2 


Im letzten Heft haben wir gelernt, wie man mit Hilfe von 
Rom-Routinen Zeichen auf dem Bildschirm darstellen kann. 
Wer das kurze Beispielprogramm eingegeben hat, wird be- 
merkt haben, daß die Ausgabe immer in der augenblicklich 
aktiven Bildschirmfarbe erfolgte. Wie lassen sich nun die 
Farben beeinflussen 0 Zum Ausdruck verwandten wir die RST 
10 (10 hex 16 dez) Routine. Der Code des auszugebenden 
Zeichens wurde in das Register A geladen. Wir können aber 
auch die Steuer-Codes ausgeben, gefolgt von der Farbnummer. 

Die Farbsteuercodes sind: 


Dez 

Hex 

Bedeutung 

16 

10 

INK 

17 

1 1 

PAPER 

18 

12 

FLASH 

19 

13 

BRIGHT 

20 

14 

INVERSE 

21 

15 

OVER 

Nehmen wir also das Beispiel aus dem letzten Heft 

3E 02 

LD A 2 

Bildschirmkanal setzen 

CD 01 16 

CALL 1601 


06 18 

LD B 18 

PRINT Position setzen 

0E 21 

LD C 21 


CD D9 0D 

CALL 0DD9 


3E 10 

LD A 10 

Steuerzeichen für INK 

D7 

RST 10 

Ausgeben 

3E 02 

LD A 2 

Farbe Rot 

D7 

RST 10 

Ausgeben 

3E 41 

LD A 41 

Code für A 

D7 

RST 10 

Ausgeben 

C9 

RET 

Zurück zu BASIC 


Nach Ablauf des Programmes steht der Buchstabe A in Rot an 
Position 0,0. Experimentieren Sie ruhig mit dem Farbwert und 
verwenden Sie auch andere Steuerzeichen. Sie werden sehen. 


wie einfach der Umgang mit dem Bildschirm ist. Sie können 
auch weitere RST 10-Befehle an das Programm anhängen. die 
neuen Zeichen erscheinen jeweils rechts vom letzten Zeichen; 
genauso, als hätten Sie in einem PRINT-Kommando ein 
Semikolon eingefügt. 

Noch zwei nützliche Adressen im Umgang mit dem Bild- 
schirm ' 

CALL 0D6B Löscht den Bildschirm 

CALL ODFE Scrollt den Bildschirm nach oben 

Bei beiden Routinen brauchen keine Daten angegeben werden. 

Vom BASIC aus können Sie mit: 

RANDOMIZE USR 3435 
RANDOMIZE USR 3582 
} gestartet werden. 

Kommen wir nun zur Graphik. Punkte können Punkte auf den 
Bildschirm plotten, indem Sie eine Routine bei 22E5 Hex 8933 
DEZ verwenden. Vor Anwendung der Routine müssen die 
Register B und C mit den X,Y-Koordinaten geladen werden. 
Register B Y-Koordinate (0-175 dez) (0-AF hex) 

Register C X-Koordinatc (0-225 dez) (0-FF hex) 

Um einen Punkt in der Mitte des Bildschirms zu setzen, 
können wir folgendes Programm benutzen. 

06 55 LD B 55 Y-Koordinate 

j 0E 80 LD C 80 X-Koordinate 

CD E5 22 CALL 22E5 Punkt plotten 

C9 RET 

J Um Punkte zu löschen, bieten sich zwei Möglichkeiten an: 
Erstens: Sie verwenden OVER 1. Das kann durch Einfügen des 
Befehls: SET 0 (IY+87) erreicht werden. Zweitens: Sie verwen- 
den INVERSE 1. Der Befehl hierfür lautet: SET 2 (IY+87). 
Beide Befehle können jederzeit aufgehoben werden, indem 
man die entsprechenden BITs zurücksetzt: also RES 0 (IY+87) 
und RES 2 (IY+87). 


SMP-T830-Al-Siemens- 

Mini-Terminal 

Folien-Tastatur und LCD- mit Bildschirm und Tisch- Erleichtert wird auch die Ar- 
Anzeige sind die äußeren Tastatur kaum nach. CMOS- beit des Kundendienstes (In- 
Kennzeichen eines Mini-Ter- Bausteine sind die inneren betriebnahme, Wartung), 
minals. das Siemens für Mi- | Merkmale des Mini-Termi- Das kleine Terminal arbeitet 
krocomputersysteme vor- nals: Mikrocomputer 80C31, | mit einer Batterie netzunab- 
stellt. Die neue Klcinstation EPROM (bis 8 Kbyie), RAM hängig bis zu acht Stunden. 
(SMP-T830-A1) ist kaum grö- (bis 16 Kbyte). Mit dem Ge- Eine zweite Batterie puffert 
ßer oder schwerer als ein Le- rät können Programmteile j das CMOS-RAM. Beim Aus- 
sebuch, dennoch steht der aus dem Entwicklungslabor schalten des Gerätes bleiben 
Leistungsumfang dem eines | an den Einsatzort gebracht erhalten: Terminalkonfigu- 
herkömmlichen Terminals I oder dort geändert werden. ! ration (Baudrate etc.), Festle- 


gung des Zeichensatzes. Ta- 
staturbelegung und Makros. 
Eine V.24-Schmttstelle ver- 
bindet das Terminal mit der 
Entwicklungsstation bzw. mit 
dem Mikrocomputersvstem 
(SMP. AMS. SYS9000 o. a.). 
Für längere Strecken kann die 
Schnittstelle auch als 20-mA- 
Stromschleife benutzt wer- 
den. 

Die LCD-Anzeige besteht aus 
vier Zeilen zu je 40 Zeichen 
(5x7 Punktmatrix), die fen- 
sterartig den kompletten 
Speicherinhalt vorführen. 
Zwischen deutschen und AS- 
CH-Zeichensatz kann umge- 
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schaltet werden. Die alpha- 
numerische Folien-Tastatur 
(wasserdicht!) ermöglicht den 
Zugang zur menuegesteuer- 
ten Benutzeroberfläche mit 
acht Betriebsarten von „onli- 


ne“ (Terminal-Betrieb) bis zu 
„send" (Aussenden eines er- 
stellten Textes). Die Übertra- 
gungsgeschwindigkeit kann 
von 75 Baud bis zu 96000 
Baud variiert werden. 



TI - „PRO-LITE“ 
professionelle 
Computerleistung 
aus dem 
Aktenkoffer 


Texas Instruments stellt ei- 
nen wirklich tragbaren, mit 
allen Funktionen ausgerüste- 
ten PC vor. der in einem Ak- 
tenkofier untergebracht wer- 
den kann und zudem noch 
Raum Für Papier läßt. 

Mit diesem neuen Mitglied 
der PC-Familie unterstreicht 
Texas Instruments einmal 
mehr sein Engagement auf 
dem Markt der Professional 
Computer. Sämtliche Geräte | 
(Tischgeräte, Transportable 
und Pro-Lite) sind unterein- 
ander kompatibel. 

Die Portabilität ist grundle- 
gende Bedingung für Ge- l 


schäftsleute, die oft unter- 
wegs sind. 

Vor 15 Jahren hat TI als er- 
stes Unternehmen mit der SI- 
LENT 700 (TMl-Produktfa- 
milie ein tragbares Compu- 
ter- Terminal vorgestellt. 

Der TI Pro-Lite stellt eine na- 
türliche Verbindung der 
tragbaren Terminals und 
Professional Computer Pro- 
dukte TI's dar. 

Pro-Lite ist bei einer Größe 
von 75 x 290 x 330 mm 4.8 kg 
leicht. Durch den flachen 
Flüssigkristall-Bildschirm im 
Standardformat mit 25 Zei- 
len ä 80 Zeichen wird Pro- 


Lite zum wirklich tragbaren 
Gerät. Die hohe Auflösung 
des Bildschirms macht die 
Darstellung von Grafiken | 
möglich. 

Als Option bietet TI einen 
externen Färb- oder Mono- ! 
chrom-Video-Bildschirm an. \ 
Durch seine Kompatibilität 
mit dem TIPC ermöglicht 
Pro-Lite den Einsatz von | 
über 600 der häufigsten j 
„Third Party“-Anwendungen 
des MS (TNl)-DOS Betriebs- 
systems. Mit Hilfe des Emu- 
lators 931 kann Pro-Lite als 
intelligentes Terminal an TI 
Bürocomputer angeschlossen 
werden und über DFÜ -Pro- 
tokolle auch mit allen Groß- 
rechnern kommunizieren. 
Pro-Lite verfügt über einen 
RAM-Arbeitsspeicher von 
256 KB. erweiterbar auf 768 
KB. Für Programm- und Da- 
tenspeicherung ist Pro-Lite 
mit einem 3,5-Zoll-Disket- 
ten-Laufwerk mit einer Spei- 
cherkapazität von 720 KB 
ausgestattet. Damit lassen j 
sich auch komplexe Lösun- 
gen wie beispielsweise die in- 
tegrierte Software Open Ac- 
cess (TM) von „SPI" (Softwa- 
re Products International) 
einsetzen. Pro-Lite Anwen- 
dern kommt auch die Pio- 
niersteilung TTs im Bereich 
der künstlichen Intelligenz 
zugute. 

Auf „Personal Consultant" 
erstellte Expertensysteme, die 
bereits auf dem TIPC verfüg- 
bar sind, können nunmehr 
wirklich mobil eingesetzt 
werden. 

Die Zentraleinheit des Com- 
puters ist ein 16-Bit-Mikro- 
prozessor vom Typ 80C88, 
der auf Wunsch durch den 
numerischen Coprozessor 
8087 ergänzt werden kann. 
Mit Hilfe eines Verbindungs- 
kabels kann Pro-Lite Daten- 


files mit den anderen Mit- 
gliedern der TI-Familie sowie 
des IBM PCs austauschen. 
Das modulare Design von 
Pro-Lite ermöglicht, daß der 
Anwenderaufeinfache Weise 
ein System zusammenstellen 
kann, das seinen individuel- 
len Erfordernissen entspricht. 
Eine ansteckbare Erweite- 
rungsbox erlaubt den An- 
schluß eines zweiten Disket- 
tenlaufwerks sowie eines Ak- 
kus. Darüber hinaus stehen 
zwei weitere Steckplätze für 
entweder eine RS 232 sync/ 
async Schnittstelle. eine 
Schnittstelle für einen exter- 
nen Färb- oder Monochrom- 
Bildschirm oderein program- 
mierbares Software-Modul 
für individuelle Anwendun- 
gen zur Verfügung. 

Die Basiseinheit enthält ei- 
nen dem Industriestandard 
entsprechenden Parallel Port 
für den Anschluß eines 
Druckers, ln der tragbaren 
Form bietet TI einen 45-Zei- 
chen-Thermodrucker. der 
durch das Hauptgerät betrie- 
ben wird und auf Normalpa- 
pier oder Thermopapier mit 
40. 80 oder 1 32 Zeichen Zeile 
drucken kann. Pro-Lite ist 
mit allen Matrix-Druckern 
der Serie OMNI 800 kompa- 
tibel. 

Die Tastatur des Pro-Lite 
bietet neben 1 2 frei program- 
mierbaren Funktionstasten 
insgesamt 79 Tasten in der 
üblichen Schreibmaschinen- 
norm. Durch das zusätzliche 
| numerische Tastenfeld wer- 
den Rechenvorgänge an- 
wenderfreundlicher. 

Mit einem RAM-Speicher 
i von 256 KB und einem 3,5- 
Zoll-Disketten-Laufwerk mit 
j 720 KB liegt der Listenpreis 
| von Pro-Lite bei ca. DM 
1 1 000,- exkl. MwSt. 


Ergänzung zum Anwender- 
programm 

„Multicolor“ für den 11-99 

Die fehlende Zahl in Zeile 910 lautet 039. 
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CPU-Happy 


Hallo, liebe Rätselfreunde! 

Diesmal hat sich die CPU- 
Redaktion was ganz Beson- 
deres ausgedacht. Ihre Aufga- 
be besteht darin, die Funk- 
tion des unten abgedruckten 
Unterprogrammes herauszu- 
finden. 

Eine Hilfe: 

Vor dem Aufruf muß eine be- 
stimmte Variable mit einem 
Wert odereinem String belegt 
werden. Nach Ablauf des 
Programmes enthält eine an- 
dere Variable einen entspre- 
chenden Ausgangswert. 

Haben Sie die Funktion des 
Programmes herausgefun- 
den, so notieren Sie diese so- 
wie Ein- und Ausgangsvaria- 
ble auf eine Postkarte. Tronic Verlag GmbH 

Vergessen Sie bitte nicht Ab- Postfach 1 

sender und Angabe Ihres 3444 Wehretal 1 

Computersystems! Kennwort CPU-Happy 


1. Preis 

10 Kassetten aus unserem Software- Service 

2. Preis 

3 Kassetten aus unserem Software- Service 

3. Preis 

2 Kassetten aus unserem Software-Service 

4.-30. Preis 

1 Kassette aus unserem Software- Service 


18 REH *«* WAS HACKT DIESES U N T E R P R 0 6 R A H H *** 
28 REH 

38 REH EIN6AM6SVARIABLE = ? 

48 REH AUSGANGSVARIABLE = ? 

58 REH 

188 L = L E N (DUS) 

118 DEM 

128 FÜR 1 = 1 TO L 

138 B$=HID$(DU$,I,1> 

148 IF B $ = " 1 ” THEN DE=DE+2f<L-I> 

158 HEXT I 

READV . 


Alle richtigen Lösungen nehmen an der Verlosung der Programmkassetten teil. Mitmachen darf jeder, mit 
Ausnahme der Mitarbeiter des Tronic- Verlages sowie deren Angehörige. Einsendeschluß ist der 15. 6. 1985. 

Der Rechtsweg bleibt wie üblich ausgeschlossen. 
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Deutscher Zeichensatz 

für C-64/MPS 802 


die Tastatur erreichen und j 
die Sie sonst nicht oft ver- | 


Dieses Programm ermöglicht 
das Ausdrucken von 
„ÄÖOäöüß" auf dem Com- 
modore-Drucker VC 1526/ 
MPS 802. Dies geschieht 
durch Einbau des Programms 
in die Äusgaberoutine. Im- 
mer. wenn bestimmte Codes 
über die Sekundäradressen 0, 

1 oder 7 der Geräteadressc 4 
ausgegeben werden, stoppt 
das Programm die Ausgabe, 
ändert das benutzerdefinier- 
bare Zeichen und gibt es aus. 
dann wird normal weiterge- 
druckt. Für die Definition ist 
es leider erforderlich, daß ein 
CHR$( 141) ausgegeben wird. 
Dadurch werden alle Sonder- 
funktionen wie Invers- oder 
Breitschrift, aber auch der 
Gänsefüßchenmodus, abge- 
schaltet. Groß- oder Klein- 
schrift werden auch abge- 
schaltet; wenn man Groß- 
schrift benutzen möchte, 
muß man die Ausgabe über 
Sekundäradresse 0 laufen las- 


sen. Benötigt man Klein- 
schrift, erfolgt die Ausgabe 
Uber Sekundäradresse 7. Da- 
durch ist das Programm vor 
allem für die Ausgabe von 
Texten, wie zum Beispiel 
Briefen, geeignet. Für Listings 
sollte man die Erweiterung 
wieder abschalten. Dies ge- 
schieht durch Run-Stop Re- 
store; vor jeder Ausgabe 
sollte die Erweiterung durch 
Sys 51712 neu initialisiert 
werden. Übrigens stört die 
Erweiterung die Ausgabe an 
die Floppy, Datasette oder 
andere Geräte nicht, sie kann 
von daher also durchaus ein- 
geschaltet bleiben. 

Die CHR$-Codes der Um- 
laute sind nicht festgelegt, je- 
der kann sie nach eigenen 
Wünschen ändern, denn die 
Standardzeichen, deren Co- 
des verwendet werden, kön- 
nen natürlich nicht mehr aus- 
gedruckt werden. Sie können 
also Zeichen, die Sie gut über 


wenden, in die Codetabclle 
eintragen. So läßt sie sich bei- 
spielsweise an Textprogram- 
me oder selbsterstellte Zei- 
chensätze anpassen. Die Co- 
des im Programm stehen in 
der Reihenfolge von 
„ÄÖOäöüß", die Werte im 
Listing entsprechen den Co- 
des bei Epson- und kompati- 
blen Druckern. Wenn Sie sie 
ändern, müssen Sie beachten, 
daß die Werte der Codes 
nicht zwischen 0-31 und 
nicht zwischen 128-159 lie- 
gen dürfen, da in diesen Be- 
reichen die Steuercodes für 
den Drucker untergebracht 
sind. 

Wenn Sie das Programm ein- 
getippt haben und das erste 
Mal ausprobieren, werden Sie 
feststellen, daß der Druck- 
kopf bei jedem Umlaut einen 
„Schlag“ macht, durch die 
Druckwegoptimierung des 


VC 1526/M PS 802 wird dar- 
aus manchmal ein richtiges 
Hin- und Hcrlaufen des Kop- 
fes. Wenn Sic übrigens Breit- 
schrift einstellen, wird ein 
Sonderzeichen mitten im 
schon gedruckten Text er- 
scheinen. 

Weil das Programm die zu 
druckenden Zeichen zählt 
und da Breitschrift nicht ex- 
tra berücksichtigt wird, 
kommt es dann zu einem 
„Verzählen" des Programms. 
Da das Programm sich das 
zuletzt benutzte Sonder- 
zeichen merkt, wird es bei 
seiner Wiederholung nicht 
neu definiert, deswegen sollte 
man das Programm vor je- 
dem Ausdruck auch mit Sys 
51712 neu starten, da so das 
letzte Zeichen gelöscht wird, 
sonst würde, wenn der 
Drucker zwischendurch ab- 
geschaltet wurde, statt des 
Sonderzeichens eventuell ein 
Leerzeichen ausgedruckt. 

Trotzdem ist das Programm 
für die Ausgabe von Texten 
nahezu ideal, wenn man auf 
Breitschrift und Inversschrift 
verzichtet. 


1000 REM DEUTSCHER ZEICHENSPTZ MPS 802 
1010 REM COPYRIGHT BY 

1020 REM KLPUS SCHNEIDER 

1030 REM BPHNHOFSTR. 5 

1040 REM 493 DETMOLD 

1050 REM 

10S0 REM ******* POKEN DER COOES ****** 

1070 REM 

1080 FOR 1=1 TO 7 
1090 REPO Ul 
1100 POKE 52043+1, W 
1110 NEXT I 
1 120 REM 

1130 REM ****** POKEN OER OPTEN ******* 

1 140 REM 

1150 PRINT CHR*<147) 

1160 PRINT TPBC 14 > -BITTE UIORTEN“ 

1170 PRINT 

1180 FOR 1=51712 TO 52043 
1 190 REPD Ul 
1200 CO=CO+U 
1210 POKE I,U 
1220 KEXT I 

1230 IF COO41096 THEN PRINT “ERROR IN DOTOS“ 
1240 PRINT “PLLES OK . ■ 

1250 REM 

1260 REM ***** STPRTEN OER ROUTINE **** 

1270 REM 
1280 SYS 51712 


1290 

1300 

13 10 

EMU 

REM 

REM *«** HIER COOES E I NTRPGEN **** 

1320 

REM 


1330 

OPTP 

091 ,092,093,123,124 , 125,126 

1340 

1350 

REM 

REM ********* OIE DPTEN ********** 

1360 

1370 

REM 

DATA 

169 ,022 , 14 1 ,038 ,003 , 169,202 

1380 

OPTP 

14 1 ,039 ,003, 141 ,083,203, 162 

1390 

DPTP 

000 , 142,085,203 , 142,084 ,203 

1400 

DATA 

096 ,072, 165,154,201 ,004 ,240 

14 10 

OPTP 

004 , 104,076,202 ,241,104,133 

1420 

OPTP 

097, 165,185,201 ,255 ,240,017 

1430 

DPTP 

20 1 ,096 ,240,013 ,20 1,097,240 

1440 

OPTP 

009 ,20 1 , 103 ,240 ,005 , 165,097 

1450 

DATA 

076,202 ,241, 133,098 ,138,072 

1460 

OPTP 

152,072,165,097,041 ,127,201 

1470 

DPTP 

032, 176,003,076,245,202,165 

1480 

DPTP 

185,201,103 ,208 ,010,173,084 

1490 

OPTP 

203,208,005 , 169,017,032 ,202 

1500 

DATA 

241 , 165,097, 162,006,221 ,076 

1510 

DPTP 

203,240 ,006 ,202 ,016,248 ,076 

1520 

OPTP 

217,202, 138,205,083,203,208 

1530 

OPTP 

005,169,254,076,231 ,202, 141 

1540 

DATA 

083,203, 165 , 184,072, 169,141 

1550 

OPTP 

032,202,241 ,032,204,255, 162 

1560 

OPTP 

003,189,016,203,149,183,202 
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1570 OATA 016,248,032/ 192,855 
1580 OATA 032,201,255,173,083 
1590 DATA 010,010,170,160,008 
1600 DAT« 203,032,202,241,232 
1610 OATA 246,169,013,032,202 
1620 OATA .204,255, 169,099,032 
1630 OATA 104,170,032,201,255 
1640 DATA 203,240,008,169,032 
1650 OATA 241,202,208,248,166 
1660 OATA 185,169,254,224,103 
1670 OATA 032,202,241,169,017 
1680 DATA 201,034,208,010,169 
1690 DATA 085,203,141,085,203 
1700 OATA 238,084,203,133,097 


168,099 

1710 OATA 

203,010 

1720 DATA 

189,020 

1730 OATA 

136,208 

1740 OATA 

24 1 ,032 

1750 DATA 

195,255 

1760 OATA 

174,084 

1770 OATA 

032,202 

1780 OATA 

098 , 134 

1790 OATA 

208,021 

1800 OATA 

208,014 

1810 OATA 

255,077 

1820 DATA 

169,034 

1830 OATA 

104 , 168 

1840 DATA 


104 , 170 , 165 , 097 , 076 , 202 ,24 1 
041 , 127 , 201 , 013 , 208 , 012, 162 
000 , 142 , 085 , 203 , 142,084 ,203 
165 , 097 , 208 , 227 , 165 , 097,044 
085 , 203 , 048 , 217 , 016 , 218,000 
099 , 005 , 004 , 158 , 040 , 072 ,072 

040 . 158 . 000 . 000 . 188 . 066.066 

066 . 066 . 188 . 000 . 000 . 188 .002 

002 . 002 . 002 . 188 . 000 . 000 . 132 

042 . 042 . 042 . 156 . 002 . 000 . 000 

156 . 034 . 034 . 034 . 156 . 000 . 000 
000 , 188 , 002 , 002 , 004 , 190 ,000 
000 , 000 , 127 , 128 , 146 , 082,044 
000 , 000,000 


DEL 64 für den Commodore 64 


Dieses Programm dient dazu, 
Programmzeilcn blockweise 
zu löschen. Es wird normal 
geladen und mit RUN gestar- 
tet. Da es sich jedoch selbst 
löscht, sollte man es unbe- 
dingt vor dem ersten Lauf ab- 
saven. 

Nach dem Programmstart 
wird man nach der Anfangs- 
adresse gefragt, ab der die 
Maschinenroutine im Spei- 
cher abgelegt werden soll. 
Wenn der Bereich von 
$COOO-$DOOO nicht ander- 
weitig benutzt wird, kann 
man diesen wählen (49152). 
Nun wird das Maschinenpro- 
gramm in den entsprechen- 
den Speicherbereich gepoked, 
wobei eine Prüfsumme gebil- 
det wird. Stimmt diese, so 
wird eine entsprechende Mel- 
dung ausgegeben und der Ba- 
sic-Lader löscht sich selbst. 


Die Routine steht nun frei zur 
Verfügung. Sie wird mit SY- 
SA.Z1.Z2 aufgerufen, wobei 
A die vorher eingegebene An- 
fangsadressc ist. ZI und Z2 
stehen für die erste und die 
letzte zu löschende Pro- 
grammzeile. Hierbei ist zu 
beachten, daß diese beiden 
Zeilen ebenfalls gelöscht wer- 
den, wenn sie vorhanden 
sind. 

Für ZI und Z2 können auch 
Zeilennummem eingegeben 
werden, die im Programm 
nicht Vorkommen. Dann 
werden einfach die dazwi- 
schenliegenden Zeilen ge- 
löscht. Wenn Z2 kleiner oder 
gleich ZI ist, wird einfach gar 
nichts gelöscht. 

Nach Beendigung des Lösch- 
vorganges springt die Routi- 
ne ins Basic zurück. 


100 Rtri *** BEL 64 V3 *** 

110 Ktt'l vL/1985 EY kHLP'H LHESSlÜ 
130 : 

130 INFU 1 "S f HK I HBKESbE" , 8 
140 FCJRI=H1ÜH+I0b 
1 30 RE8BÜ! : PÜK.E I , U : 3=S+Ü • HEX I 
1 60 IFS=14345 I HENPklN 1 "RlLES ÜK 11 " : NEW 
1X0 PklN I '• FEHLER IN ilH I NS 1! " • ENL 
180 : 

1 90 B8T 8032 , 253 ,174, 032 ,138,173, 032 
2O0 BP i 8247 ,183,072,152, 072 , 032 , 253 
210 BH fPl 74, 032, 138, 173,032,247, 183 
220 BP(H132,253, 133,254, 104, 133,020 
230 BH 18104, 133,021,032,019, 166,165 
240 BH rH095, 133,251, 165,096, 133,252 
250 BH (Hl 77, 095, 208, 001, 096, 165,253 
260 BH 18133,020, 165,254, 133,021, 160 
270 BHrH001 ,032,029, 166, 144,012, 160 
280 B8IH000, 177,095, 170,200, 177,095 
290 ÜH 18133, 096, 134,095,056, 165,046 
300 B0 TH229, 096, 170,232, 160,000, 177 
310 B81H095, 145,251,200,208,249,230 
320 B8 I 8252 , 230 , 096 , 202 , 208 , 242 , 032 
330 B8T8089, 186,032,051, 165,076, 116 
340 BH I Hl 64 


2 






110: 

C000 


. ORT 

PI, 00 


120: 

C000 

J 

#= 

$0000 




DEL 64 

V3 





; BLOCKWEISES 

L0E3CHEN 

VON 



; PROORRMMZE I LEN 




; 10.04. 

1 985 

BV RALPH 

LAESSIG 

200 = 

C000 

CHKCOfl 

— 

$HEFH 


210 = 

C000 

FRMNUM 

= 

$AD8A 


220 = 

C000 

FRCINT 

& 

SB7F7 


230: 

C000 

ZEIG1 

S 

251 


240: 

C000 

ZEIG2 

t 

S 

253 




; PRRRMETER HOLEN 
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280 

290 

300 

310 

320 

320 

330 

340 

350 

360 

370 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

540 

550 

560 

570 

580 

590 

600 

620 

630 

640 

650 

660 

670 

680 

710 

720 

730 

740 

750 

760 

770 

780 

790 

800 

810 

820 

830 

840 

850 

860 

870 
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C000 

20 

FD 

RE 

JSR 

CHKCOM 

C003 

20 

8R 

RD 

JSR 

FRMNUM 

C006 

20 

F7 

B7 

JSR 

FRCINT ; STRRTRDRESSE 

C009 

48 



PHR 


C00R 

98 



TVR 


C00B 

48 



PHR 

; SICHERN 

C00C 

20 

FD 

RE 

JSR 

CHKCOM 

C00F 

20 

8R 

RD 

JSR 

FRMNIJM 

C012 

20 

F7 

B7 

JSR 

FRCINT ;endrdresse 

C015 

84 

FD 


STV 

ZEIG2 

C017 

85 

FE 


STR 

ZEIG2+1 ; SICHERN 





BERE I CHSRNF RNG SUCHEN 

C019 

68 



PLR 


C@1 A 

85 

14 


STR 

$14 

C01C 

68 



PLR 

; ZEILENNUMMER SETZEN 

C01D 

85 

15 


STR 

$15 

C01F 

20 

13 

R6 

JSR 

$R613 j ZEILENRDRESSE SUCHEN 

C022 

R5 

5F 


LDR 

$5F 

C024 

85 

FB 


STR 

ZEIG1 ;UND SICHERN 

C026 

R5 

60 


LDR 

$60 

C028 

85 

FC 


STR 

ZEIG1+1 

C02R 

Bl 

5F 


LDR 

<$5F)/V 

C02C 

D0 

01 


BNE 

BE ;kein PROGRRMMENDE 

C02E 

60 



RTS 






BEREICHSENDE SUCHEN 

C02F 

R5 

FD 


BE LDR 

ZEIG2 

C031 

85 

14 


STR 

$14 

C033 

R5 

FE 


LDR 

ZEIG2+1 ; ZEILENNUMMER SETZEN 

C035 

85 

15 


STR 

$15 

C037 

R0 

01 


LDV 

#$01 

C039 

20 

ID 

R6 

JSR 

$R61D ; ADRESSE SUCHEN 

C03C 

90 

0C 


BCC 

Ul ; ZEILE NICHT VORHANDEN 

C03E 

R0 

00 


LDV 

#0 

C040 

Bl 

5F 


LDR 

($5F) , V 

C042 

RR 



TRX 

; ZEILE VORHANDEN 

C043 

C8 



INV 

.:=> ADRESSE VON NRECHSTER ZEILE 

C044 

Bl 

5F 


LDR 

<$5F),V ; BERECHNEN 

C046 

85 

60 


STR 

$68 

C048 

86 

5F 


STX 

$5F 





; LOESCHEN 


C04R 

38 



Ul SEC 


C04B 

R5 

2E 


LDR 

46 ;LRENGE DES ZU VERSCHIEBENDEN 

C04B 

E5 

60 


SBC 

$60 ; TEILS BERECHNEN 

C04F 

RR 



TRX 


C050 

ES 



INX 


C051 

R0 

00 


LDV 

#0 

C053 

Bl 

5F 


LI LDR 

<$5F),V 

C055 

91 

FB 


STR 

< ZE I G 1 ) > V 

C057 

C8 



INV 


C058 

D0 

F9 


BNE 

LI ; VERSCHIEBESCHLEIFE 

C05R 

E6 

FC 


INC 

ZEIG1+1 

C05C 

E6 

60 


INC 

$60 

C05E 

CR 



DEX 


C05F 

D0 

F2 


BNE 

LI 

C061 

20 

59 

R6 

JSR 

$R659 ; CLR 

C064 

20 

33 

R5 

JSR 

$R533 ; PRGMZEILEN NEU BINDEN 

C067 

4C 

74 

R4 

JMP 

$R474 ; E I NGRBESCHLE I FE 
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High-Resolution Graphik 

Ein Unterprogramm zum Plotten von einzelnen Punkten für den TI-99 


Erläuterungen: 

Zeile: Erläuterungen: 

40- 90 Programmkopf 
100-110 Erklärung 
120-170 Dateneingabe 
180-210 YMAX, YMIN- 
Berechnung 

220-250 Übergabewerte 

XO/YO -errech- 
nen 

260-270 Tastaturabfrage 
E= ENDE 
W = Wiederholt 
Plot 

N = Neue Werte 
280-320 Berechnung der 
Punkte im 192 mal 
256 Raster 

330-340 Hexadezimalum- 
rechnung 

Alle „!“ können ersatzlos ge- 
strichen werden. 

Das Unterprogramm Call 
Plot kann natürlich auch an- 
derweitig verwendet werden, 
z. B. zu einem Zeichenpro- 
gramm. das auch beiliegt, daß 


ich aber nicht näher erklären 
will, da es sich um exakt die 
Zeilen 280-340 und einer Joy- 
stickabfrage handelt. Es kom- 
men also noch 3 Zeilen hinzu. 
Soll ein Punkt gesetzt werden, 
braucht man nur den Feuer- 
knopf drücken. Soll der Bild- 
schirm gelöscht werden, „A“ 
drücken. 

Das Unterprogramm kann 
auch noch in viele andere 
Grafikprogramme eingebun- 
den werden (Zeile 280-340) 
und braucht dann nur mit 
CALL PLOT (X.Y- 
,)J23456789ABCDEP‘) auf- 
gerufen zu werden. X für die 
X-Achse (1 -256); Y für die Y- 
Achse (1-192)!!! 

Programmbeschreibung: 

Nach dem Start des Pro- 
gramms erscheint eine kurze 
Erklärung. Nach richtigem 
Start müssen dann der An- 
fangswert, Endwert, Schritt- 
weite, YMAX, YMIN einge- 
geben werden. Bei der Sin- 


Funktion sind das z. B. An- 
fangswert=0, Endwert=2x- 
PI=6.28. Schrittweite=.05 
(Normal zwischen .1 und 
.01), YMAX=1. YMIN=-1. 
Wenn man die YMAX- und 
YMIN-Werte nicht im Kopf 
hat, dann gibt man einfach 
für beides „O" ein und der 
Rechner, errechnet sich die 
Werte selbst. Das dauert et- 
was länger. Das Programm ist 
aber trotz allem das schnell- 
ste Plot-Programm für den TI 
in Basic. 

Das Programm ist gegen fal- 
sche Werte weitgehend gesi- 
chert, und so kann man mit 
den YMAX- und YMIN- 
Werten etwas spielen, und 
man erhält tolle Verzerrun- 
gen. Werden bestimmte 
Grenzwerte überschritten, 
wie z. B. der Zeichen-Vorrat 
oder X- und Y- Werte, so 
stürzt das Programm nicht 
ab, sondern macht mit dem 
nächsten Wert weiter. Der 
Plot ist dann erstellt, wenn 


ein akustisches Signal ertönt. 
Wahlmöglichkeiten sind 
dann, siehe oben. 


Variablenliste: 


YMAX 

Maximum von Y 

YMIN 

Minimum von Y 

Y1 

Y-EfTektiv 

X.Y 

X,Y-Wertc 

XO.YO 

Übergabewerte an 
SUB PLOT 

K1.S1 

Kcyrückgabevaria- 

blen 

XE 

X-ENDE 

XA 

X-ANFANG 

S 

Schrittweite 

H§.C§ 

Stringausdrücke 

fürdicCHAR-Dc- 

finition 

Q.K 

Variable für Zei- 
chen (ASCII), das 
gesetzt werden soll 

V.W 

Annahmevariablen 
des SUB PLOT 

VG.WG.VR.W R.VO.WO 

Variablen zur Er- 
rechnung der 

Punkte bzw. der 
CHARs 


4« 'HIGH RES. PLOT 2.4 Kbyt 

50 ! PR I NFP GAWRIKOW 

80 ' SOMMERHAUSEN 15 

70 ! 5?03 MUCH 

00 ' TEI . : 02245/3983 

90 I 


1 00 DISPLAY RTC 8, 1 >EPRSE RLL : " HOCHAUFLOESENDER PLOT ! " = " " « 

= "VON PRINEP GAWRIKOW 2/85 ' " « ‘ ="!!DIE FUNKTION MUSS IN ZEILE" ‘ ‘ ‘ " 130 DEFIN 
TEPT WERDEN. 2.B. = " 

110 DI SPLfiY RTC 2 1 . 1 > ■ " Y=S I NC X ) .. DANN PUN 130!!" • « STOP 
100 'EINGABE DER WERTE 
130 DFF Y=SINCX> 

140 CAI L SCREENC3>‘‘ DISPLAY RTC 12 , 1 >ERASE RLL : "RNFRNGSWEPT ?" » ‘"ENDWERT ?" 

= ‘ "SCHRITTWEITE?" = ‘"YMAX ?" = ‘"YMIN 7" 

150 RCCEPT RTC 12, 15)BEEP = XR ‘‘ RCCEPT RTC 14, 15 )BEEP ‘ XE ‘ ‘ IF XEOXR THEN 150 
180 RCCEPT RTC 16, 15 *BEEP‘S “ IF S<=Ö THEN 160 

170 RCCEPT RTC 18, 15>BEEP‘YMRX ‘ ‘ RCCEPT RTC 20, 15 >BEEP ‘ YMIN ‘ = IF YM I N >YMRX THEN 


170 
1 80 
190 
200 
210 
220 
230 
240 
1 >‘ 
250 


' ERRECHNEN DER GROESSTEN UND KLEINSTEN Y-WERTE 

ON BREAK NEXT • ‘ ON WARN ING NEXT « = IF YMRX=0 AND YMIN=0 THEN 200 ELSE 210 
FfiR X»XA TO XE STEP S ‘= YMRX=MRXC YMAX, Y > ‘ ‘ YM IN=M INC YMIN, Y > ‘ ‘ NEXT X 
Y 1 = YMAX- YM I N ‘ = IF Y 1=1 THEN Yl=2 

'ROUTINE ZUM ERRECHNEN DER WERTE IMC 192*256) RASTER 
CAL I CLEAR ‘ = FOP X=XA T0 XE STEP S 
X0=c C -SGNC XA >*ABSC XR ) )+X )*C 250/C XE-XR ) ) 


Y0= 1 80-ABSC YM I N*C 170/Y1 ) )-Y*C 170/Y 


NFXT X 


CRI l SOI JNDC -500 , 500 .10) 
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>F.H r RI L KEY( 0.K/S1 ! IF S1=0 THEN 260 EI SE IF K=8? THEN CFlLL CLEHR i: GOTO 230 

ELSE TF K=?R THEN CRLL CLEHR • « CHLL CHHRSET • « GOTO 140 ELSE IF K*69 THEN CHLL 
CLFHR s: CHI L CHHRSET == GOTO 100 
270 CHLL CL FHR •• » END 

i ROUTINE 7UR E I NZELPUNKTHNSTEUERUNG (192/256) 

SUR PLOT ( V ■ W > H* ) ,, 

W=INT(W> !: UG=INT( W/8 ) : : WR=W-WG*8+1 ' = V=IHT(V)- VG=INT( V/8 ) : : •/R=v'-VG*8+1 
. . ufi= T NT( ( WR/4. 1-INTC WR/4 . 1 > >*4 . 1 + . 5 ) » ! V0*VR*2+ 1 HT( WR/4 . 1 >- 1 ^ _ 

310 r:R| L GCHHRC VG+ 1 • WG+ 1 . Q ) * * IF Q=32 THEN K=K +1 «* Q-K+32 «• C*=RPT*( " 0 " , 16 >ELS 
F CHI L CHHRPHT( 0 . C* > 

320 IF 0 >=143 THEN SUBEXIT 

330 ! HEXflDEZ 1 MRLUMRECHNUG „ llr , 4 rit 

340 C*=SEG*( C* ■ 1 , V0-1 )feSEG$( H* . POS< H$ , SEG*' C$ • VQ, 1 ), 1 >0R 2^( 4-W0 >, 1 >&oEG*( C$> , V0+ 
1 . 15 ): > CHLL CHHR( 0 , C* > ■ ■ CHLL HCHHR( VG+ 1 > WG+ 1 > Q ) ; : SÜßEND 


2R0 

>90 

300 


Das Floppybuch zum Apple II 


Data-Becker- Verlag, Düsseldorf; Autor: Manfred Czerwinski; ISBN-3-89011-072-X 


Die kleinen biegsamen 
Kunststoflscheiben - Disket- 
ten, Floppydisks oder kurz 
Floppies genannt - sind aus 
der Welt der Mikrocomputer 
nicht mehr wegzudenken. 
Das Floppy-Buch zum Apple 
II befaßt sich intensiv mit 
den Einsatzmöglichkeiten 
dieses Speichermediums. Der 
Schwerpunkt liegt bei der Be- 
handlung der verschiedenen 
Datei formen. 

Der Darstellung liegt das Dis- 
kettenbetriebssystem DOS 
3.3 zugrunde. Im letzten Ka- 
pitel wird das neue System 
ProDOS behandelt; die er- 
weiterten Möglichkeiten und 
Unterschiede zu DOS werden 
aufgezeigt. Alle Programme, 
die Sie in diesem Buch fin- 
den, sind unter beiden Be- 
triebssystemen lauflahig. 

Sic sollten bereits Uber solide 
Grundkenntnisse in BASIC 
verfügen und mit Applesoft- 


Befehlen vertraut sein. Die 
Prinzipien der Programmie- 
rung wie beispielsweise das 
Formulieren von Schleifen 
und Verzweigungen, die 
Funktion von Ein- und Aus- 
gabebefehlen oder der Um- 
gang mit Feldern und Zci- 
chenkctten werden vorausge- 
setzt. 

Auf dem Gebiet der Datei- 
verarbeitung benötigen Sie 
keinerlei Kenntnisse, da wir 
sozusagen bei „Null“ anfan- 
gen. Aber auch (ur Fortge- 
schrittene, die mit sequentiel- 
len und Random-Dateien 
schon gearbeitet haben, bie- 
ten insbesondere die Kapitel 
5 bis 9 neue Möglichkeiten. 
Alternativen sowie Tips und 
Tricks. 

Sie finden in diesem Buch 
eine ganze Reihe von Pro- 
grammen, die Sie direkt in 
Ihren Apple-Computer ein- 
tippen und anwenden kön- 


nen. Wenn Sie beispielsweise 
eine Kunden-, Artikel- oder 
Vereinskartei benötigen, kön- 
nen Sie das entsprechende 
Programm unmittelbar ein- 
setzen. Das Ziel des Buches 
liegt jedoch nicht darin, ferti- 
ge Programme zum Abtippen 
zu präsentieren. Vielmehr 
sollen Sie die Prinzipien der 
Dateiverarbeitung kennen- 
und verstehen lernen und den 
Entwurf der Programme 
Schritt für Schritt nachvoll- 
ziehen können. Diese Vorge- 
hensweise ist zwar für Sie zu- 
nächst etwas mühsamer. Sie 
profitieren aber wesentlich 
mehr davon: Sie können 
nämlich die Programme so 
modifizieren, daß diese für 
Ihre persönlichen Anwen- 
dungen optimal sind. Und Sie 
sind in der Lage, eigene Pro- 
gramme zu schreiben, welche 
auf den hier dargestellten 
Prinzipien beruhen. Aus die- 


sem Grund enthält das Buch 
zahlreiche Abbildungen zur 
Verdeutlichung wichtiger 
Programmiermethoden; fer- 
ner sind alle Programme aus- 
führlich dokumentiert. Das 
Buch ist daher Lehrbuch und 
Programmsammlung in ei- 
nem. 

Einige Kapitel aus dem In- 
haltsverzeichnis: 

- Eigenschaften und Anwen- 
dungen einer Floppy 

- Unsortierte sequentielle 
Dateien 

- Sortierte sequentielle Da- 
teien 

- Random-Dateien 

- Such- und Sortierverfahren 

- Index-Sequentielle Dateien 

- Verkette Dateien 

- Programmierung eines Li- 
teraturverzeichnisses 

- Weitere DOS-Komman- 
dos und Besonderheiten 

- Das System ProDOS 


3!/i Zoll Micro-Floppy-Disk zum 

Mitnehmen! 


Für Olivetti MIO und Tandy TRS80-Model 100. 


Daß man seinen Computer 
mit auf die Reise nehmen 
kann, ist vielen schon eine 
Selbstverständlichkeit. Aber 
wenn schon mobiler Compu- 
ter - dann auch mobiler Spei- 
cher. In der Größe sollte na- 
türlich auch alles zusammen- 
passen. 

Damit wären wir auch schon 


bei der PFD-400. Der netz- 
unabhängigen 3'/: Zoll Micro- 
Floppy für Ihren MIO bzw. 
Model 100. Klein und hand- 
lich mit erstaunlicher Lei- 
stung: i'h Zoll Drive mit 
Schnittstelle zu Ihrem Com- 
puter. Wiederaufladbare Ni- 
Cad- Batterien sowie Netzan- 
schluß für ein Ladegerät. 


Da ist Platz für jede Menge 
Daten - ca. 360 KB können 
Sie pro Diskette (formatiert) 
abspeichern. Die Zugriffszeit: 
Ganze 6 Millisekunden 
(Track to Track). 

Die PFD-400 schließen Sie 
ganz einfach an Ihren Com- 
puter über das mitgelieferte 
Kabel an (BUS-Verbindung). 


Übrigens - Ihre Schnittstel- 
len für Drucker und Modem 
bleiben frei! 

Last but not least ist Ihre 
Floppy mit einem integrier- 
ten Videointerface ausgerü- 
stet. Problemlos schließen Sie 
hier einen Monitor (80 x 25) 
oder ein TV-Gerät (40x 25) 
an. 
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„Hello“ - Anwenderprogramm 

für den Apple II 


Ist das Programm erst einmal 
vollständig abgeschrieben 
und als erstes File auf Ihrer 
Diskette zu finden, müssen 
Sie sich nach dem Einschal- 
ten des Rechners erst einmal 
zwischen der RETURN-Ta- 
ste und der SPACE-Taste 
entscheiden. Drücken Sie die 
RETURN-Taste, befinden 
Sie sich im Menü. Haben Sie 
sich aber für die SPACE-Ta- 
ste entschieden, erleben Sie 
eine kleine HIRES-Überra- 
schung, die zum schnelleren 
Arbeiten auch weggelassen 
werden kann (einfach Zeilen 
10-600 nicht mit abschrei- 
ben). 

Dieses DOS hat von mir eine 
persönliche Note bekommen. 
Ist das bei Anwendern nicht 
erwünscht - einfach die Zei- 
len 35-290 weglassen (oder in 
mühseliger Kleinstarbeit das 
Programm umschreiben, auf 
daß der eigene Name erschei- 
ne). 

Zum Menü: 

Das Menü ist sehr übersicht- 
lich. Links erscheint das In- 
haltsverzeichnis der Diskette, 


das durch Drücken der SPA- 
CE-Taste erneut geladen wer- 
den kann. 

Ist der CATALOG einmal 
länger als 18 Zeilen, muß 
man erst eine Taste drücken, 
um an die zur Verfügung ste- 
henden DOS-Anweisungen 
(auf dem Bildschirm rechts) 
zu kommen. Diese sind 
knapp und deutlich gehalten; 
aus Platzgründen, und um 
den Anwender nicht zu ver- 
wirren. 

Vorgehensweise: 

1 Zum Initialisierungsvor- 
gang (3. INIT): 

In diesem Programmteil 
wird zuerst nach der Dis- 
kettenkennzahl gefragt. 
Danach wird SLOTNR. 6 
vorgegeben. Ist diese zu be- 
anstanden, so ist diese Fra- 
ge mit „N“ zu beantworten 
und kann somit berichtigt 
werden. Als nächstes wird 
auf die Laufwerknummer 
verwiesen. Gleiches Ver- 
fahren wie bei der Slot- 
nummer. Es folgt ein Hin- 
weis, daß dieses Programm 
das erste auf der zu forma- 


tierenden Diskette sein 
wird. Als zusätzliche Absi- 
cherung wird noch einmal 
gefragt, ob auch die richtige 
Diskette im Laufwerk Nr. 
soundso ist. 

2. Zum Umbenennen von 
Programmnamen (7. RE- 
NAME): 

Es ist nicht mit dem Kom- 
ma zu verfahren, sondern 
wie folgt: Name des Pro- 
gramms, welches man um- 
benennen will - (RE- 
TURN) - neuer Name - 
(RETURN). 

3. Zur 9. SAVE 

Dieser Teil des Programms 
bringt nur dann einen Vor- 
teil, wenn man öfter ein- 
mal das erste Programm 
der Diskette wechseln bzw. 
erneuern will. 

Das Ganze hat zwei große 
Vorteile gegenüber dem For- 
matieren: 

1. Es wird nicht die ganze 
Diskette gelöscht. 

2. Große Zeitersparnis. 

Z. B. habe ich dauernd an 
dem Programm getüftelt und 
es immer wieder verbessert 


und war es leid, immer zu 
tippen: UNLOCK HELLO, 
dann evtl. DELETE HELLO 
- etwa wenn das Programm 
kürzer geworden ist -, dann 
SAVE HELLO usw. ... 

Der Text, der dann folgt, ist 
j etwa so zu übersetzen: 

„Wenn du den SAVE-Teil 
dieses Programms weiter ver- 
folgst, wird das erste Pro- 
gramm deiner Diskette - 
HELLO - zerstört w erden, ob 
es nun durch LOCK gesichert 
ist oder nicht. Anstatt dessen 
wird sich dieses Programm 
selbst abspeichem und auto- 
matisch sichern. Wenn du 
fertig bist, tippe „Y“ ...“ 
Dieses Programm steigt auch 
nicht gleich aus. sollte etwa 
ein Programm mal nicht zu 
finden sein oder ähnliches. 
Wird einmal das Inhaltsver- 
zeichnis durch SPACE abge- 
fragt und ist keine Diskette 
im Laufwerk, läuft das Pro- 
gramm so lange, bis eine Dis- 
kette eingelegt oder die RE- 
SET-Taste gedrückt wird. 
(Vorsicht! Nicht gut für das 
Laufwerk!) 


10 

HGR : HGR2 : HOME : 

GET Ei 





15 

IF Et = 

CHRS (32) 

THEN 20 





17 

IF ET = 

CHR$ (13) 

THEN 605 





18 

GOTO 10 








20 

HCOLOR= 

5: FOR I = 

191 TO 1 

STEP - 3: 

HPLOT 279,1 TO 1,0: NEXT 

I 

30 

FOR I = 

0 TO 191 STEP 

3: HPLOT 0,1 TO 

88 + 1,191: NEXT I 



35 

REM *** 

R *** 







40 

HCOLOR= 

2: FOR I = 

1 

TO 6: 

HPLOT 45,80 

TO 55 + 1,90: NEXT I 



50 

HCOLOR= 

3: FOR I = 

1 

TO 4: 

HPLOT 45,85 

TO 61,65 - I: NEXT I 



60 

HCOLOR= 

2: FOR I = 

1 

TO 4: 

HPLOT 45,60 

TO 61,60 + I: NEXT I 



70 

HCOLOR= 

3: FOR I = 

1 

TO 6: 

HPLOT 44 + 

1,60 TO 45,90: NEXT I 



75 

REM *** 

0 *** 







80 

HCOLOR= 

3: FOR I = 

1 

TO 6: 

HPLOT 81,60 

TO 82 - 1,90: NEXT I 



90 

HCOLQR= 

2: FOR I = 

1 

TO 4: 

HPLOT 65,60 

TO 81,60 + 1: NEXT I 



100 

HCQLOR= 

3: FOR I = 

1 

TO 6: 

HPLOT 64 + 

1,60 TO 65,90: NEXT I 



110 

HCQLOR= 

2: FOR I = 

4 

TO 1 

STEP - 1 : 

HPLOT 80,90 TO 65,90 - 

I: 

NEXT I 

120 

REM *** 

N *** 







130 

HCOLOR= 

3: FOR I = 

1 

TO 6: 

HPLOT 101, 

60 TO 102 - 1,90: NEXT 

I 


140 

HCOLOR= 

2: FOR I = 

1 

TO 6: 

HPLOT 89,60 TO 95 + 1,90: NEXT I 



150 

HCQLOR= 

3: FOR I = 

1 

TO 6: 

HPLOT 84 + 

I ,60 TO 85,90: NEXT I 



155 

REM *** A *** 
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160 

170 

180 

190 

195 

200 

210 

215 

230 

235 

240 

250 

255 

260 

265 

270 

280 

290 

295 

300 


FÜR I = 
HC0L0R= 3: 
REM *** 


REM *** 


REM *** 
HCDL0R= 
REM *** 
HC0L0R= 


I 

HC0L0R= 3: 
REM *** 


3: FOR 

I = 

1 

TO 

6: HPLOT 

121,60 TO 122 - 1,90: NEXT 

I 

2* FOR 

I = 

1 

TO 

4: HPLOT 

105,60 TO 121,60 + I: NEXT 

I 

4 TO 1 

STEP 


- 1 

: HPLOT : 

121,75 TO 105,75 - I: NEXT I 


3: FOR 

I = 

1 

TO 

6: HPLOT 

104 + 1,60 TO 105,90: NEXT 

I 

L *** 






2: FOR 

I = 

1 

TO 

4: HPLOT 

125,90 TO 141,85 + I: NEXT 

I 

3: FOR 

I = 

1 

TO 

6: HPLOT 

124 + 1,60 TO 125,90: NEXT 

I 

D *** 






2: FOR 

I = 

1 

TO 

4: HPLOT 

150,60 TO 161,65 + I: NEXT 

I 

3: FOR 

I = 

1 

TO 

6: HPLOT 

161,65 TO 162 - 1,85: NEXT 

I 

2: FOR 

I = 

4 

TO 

1 STEP 

- 1: HPLOT 161,85 TO 145,90 

— 

3: FOR 

I = 

1 

TO 

6: HPLOT 

144 + 1,60 TO 145,90: NEXT 

I 

*** 






3: FOR 

I = 

1 

TO 

6: HPLOT 

173 + 1,60 TO 168,70: NEXT 

I 

S 

*** 






3: FOR 

I = 

1 

TO 

6: HPLOT 

190 + 1,75 TO 180,90: NEXT 

I 

2: FOR 

I = 

4 

TO 

1 STEP 

- 1: HPLOT 196,75 TO 181,75 

— 

3: FOR 

I = 

1 

TO 

6: HPLOT 

190 + 1,60 TO 180,75: NEXT 

I 


- I: NEXT 


- I: NEXT 


*** 


HC0LQR= 6: FOR I = 105 TO HO: HPLOT 1,95 TO 1,145: NEXT 


310 

FOR 

I 

= 

130 

TO 

135: 

HPLOT 

I , 100 

TO 

I ,140: 

NEXT 

320 

FOR 

I 

= 

100 

TO 

105: 

HPLOT 

105,1 

- 5 

TO 135 

,1: K 

330 

FOR 

I 

= 

135 

TO 

140: 

HPLOT 

105, I 

+ 5 

TO 135,1: h 

335 

REM 

*** 

0 

*** 






340 

FOR 

I 

= 

141 

TO 

146: 

HPLOT 

1,110 

TO 

I ,160: 

NEXT 

350 

FOR 

I 

= 

166 

TO 

171: 

HPLOT 

1,110 

TO 

I , 160: 

NEXT 

360 

FOR 

I 

= 

HO 

TO 

1 15: 

HPLOT 

141 , I 

TO 

171,1: 

NEXT 

370 

FOR 

I 

= 

155 

TO 

160: 

HPLOT 

141 , I 

TO 

171,1: 

NEXT 

375 

REM 

*** 

S 

■*** 






380 

FOR 

I 

= 

177 

TO 

182: 

HPLOT 

I , 125 

TO 

I , 152: 

NEXT 

390 

FOR 

I 

= 

202 

TO 

207: 

HPLOT 

I , 147 

TO 

I , 175: 

NEXT 

400 

FOR 

I 

= 

125 

TO 

130: 

HPLOT 

177,1 

TO 

207,1: 

NEXT 

410 

FOR 

I 

= 

170 

TO 

175: 

HPLOT 

177,1 

TO 

207 , I : 

NEXT 

420 

FOR 

I 

= 

147 

TO 

152: 

HPLOT 

177,1 

TO 

207 , I : 

NEXT 

430 

FOR 

I 

= 

1 TO 2000: 

NEXT 





435 

REM 

**■* 

ISK 

*** 







440 HCOLQR= 3: HPLOT 137,95 TO 143,95: HPLOT 137,108 TO 143,108: HPLOT 14 
0,95 TO 140,108 

450 HPLOT 151,95 TO 145,95 TO 145,102 TO 151,102 TO 151,108 TO 145,108 
460 HPLOT 153,95 TO 153,108: HPLOT 159,95 TO 153,102 TO 159,108 
465 REM *** PERATING *** 

470 HPLOT 173,123 TO 173,110 TO 179,110 TO 179,117 TO 173,117 

480 HPLOT 187,110 TO 181,110 TO 181,123 TO 187,123: HPLOT 181,117 TO 184, 

117 

490 HPLOT 189,123 TO 189,110 TO 195,110 TO 195,117 TO 189,117 TO 195, 12o 

500 HPLOT 197,123 TO 197,117 TO 203,117 TO 203,123: HPLOT 198,116 TO 198, 

110 TO 202,110 TO 202,116 

510 HPLOT 205,110 TO 211,110: HPLOT 208,110 TO 208,123 

520 HPLOT 213,110 TO 219,110: HPLOT 216,110 TO 216,123: HPLOT 213,123 TO 

219,123 

530 HPLOT 221,123 TO 221,110 TO 227,123 TO 227,110 

540 HPLOT 235,113 TO 235,110 TO 229,110 TO 229,123 TO 232,123 TO 235,120: 

HPLOT 231,117 TO 235,117 TO 235,123 
545 REM *** YSTEM *** 

550 HPLOT 209,125 TO 209,132 TO 215,132 TO 215,125: HPLOT 212,132 TO 212, 
138 

560 HPLOT 223,125 TO 217,125 TO 217,132 TO 223,132 TO 223,138 TO 217,138 
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570 HPLOT 225,125 TQ 231,125: HPLOT 22B,125 TD 228,138 

580 HPLOT 239,125 TO 233,125 TO 233,138 TO 239,138s HPLOT 233,132 TO 236, 
1 32 

590 HPLOT 241,138 TO 241,125 TO 244,132 TO 247,125 TO 247.138 
600 FOR I = 1 TO 2000: NEXT 
605 REM *** ANFANG *** 

607 ONERR GOTO 9000 

610 HOME : TEXT : VT AB 1 

615 INVERSE : FOR E = 1 TO 120: PRINT " NEXT 

620 VT AB 2: PRINT " DOS - BY RONALD KREILINGER" : NORMAL 

640 POKE 34,3 


&• 0- 
O Ul 

o o 

PRINT CHRS (13) 
VTAB 5: HTAB 32: 
"RUN" 

+ CHRS 
INVERSE 

(4) ; "CATALOG" 
: PRINT "1": 

1 

NORMAL 

■ 

■ 

HTAB 

34: 

VTAB 

5: PRINT 

670 

VTAB 7: 
"LOAD" 

HTAB 

32: 

INVERSE 

s 

PRINT 

"2": 

NORMAL 

• 

m 

HTAB 

34: 

VTAB 

7: PRINT 

680 

VTAB 9* 

" INIT" 

HTAB 

32: 

INVERSE 

s 

PRINT 

"3": 

NORMAL 

m 

m 

HTAB 

34: 

VTAB 

9: PRINT 

690 

VTAB 11: 
"LOCK" 

HTAB 

32: 

INVERSE 

: 

PRINT 

"4": 

NORMAL 

m 

m 

HTAB 

34: 

VTAB 

11: 

PRINT 

700 

VTAB 13: 
"UNLOCK" 

HTAB 

32: 

INVERSE 


PRINT 

"5": 

NORMAL 

m 

• 

HTAB 

34: 

VTAB 

13: 

PRINT 

710 

VTAB 15: 
"DELETE" 

HTAB 

32: 

INVERSE 

■ 

• 

PRINT 

"6" : 

NORMAL 

• 

HTAB 

34: 

VTAB 

15: 

PRINT 

720 

VTAB 17: 
"RENAME" 

HTAB 

32: 

INVERSE 

■ 

PRINT 

"7": 

NORMAL 

: 

HTAB 

34: 

VTAB 

17: 

PRINT 

730 

VTAB 19: 
"EXIT“ 

HTAB 

32: 

INVERSE 

■ 

■ 

PRINT 

"8": 

NORMAL 

: 

HTAB 

34: 

VTAB 

19: 

PRINT 

732 

VTAB 21: 
"SAVE" 

HTAB 

32: 

INVERSE 

• 

• 

PRINT 

"9" : 

NORMAL 

• 

HTAB 

34: 

VTAB 

21: 

PRINT 


735 POKE 33,31 

750 IF PEEK C - 16384) < 128 THEN 750 
755 GET WNS 

757 IF WNS = CHRS (32) THEN POKE 33,40: HOME : GOTO 650 

760 IF WNS = " 1“ THEN 1000 

770 IF WNS = "2" THEN 2000 

780 IF WNS = "3" THEN 3000 

790 IF WNS = "4" THEN 4000 

800 IF WNS = "5" THEN 5000 

810 IF WNS = "6" THEN 6000 

820 IF WNS = "7“ THEN 7000 

830 IF WNS = "8" THEN 8000 

835 IF WNS = "9" THEN 10000 

840 IF WNS < "1" OR WNS > "8" THEN 750 

1000 REM *** RUN *** 

1010 POKE 34,0: POKE 33,40: HOME 
1020 HTAB 19: INVERSE : PRINT "RUN“ 

1030 VTAB 5: HTAB 14: INVERSE : PRINT "RETURN": NORMAL : VTAB 5: HTAB 21- 

PRINT "= MENU" 

1070 PRINT : PRINT : INPUT "WHAT FILE 7 " ; FS 
1080 DS = CHRS (4) 

1090 PRINT Di; "RUN“ ; FS 

1100 GOTO 1000 

2000 REM *** LOAD *** 

2010 POKE 34,0: POKE 33,40: HOME 
2020 HTAB 18: INVERSE : PRINT "LOAD" 

2030 VTAB 5: HTAB 14: INVERSE : PRINT "RETURN": NORMAL : VTAB 5: HTAB 21: 

PRINT "= MENU" 

2070 PRINT : PRINT : INPUT "WHAT FILE? " ; FS 
2080 DS = CHRS (4) 
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2090 

PRINT DS; "LOAD" ; Ft 





2100 

GOTO 2000 





3000 

REM *** INIT *** 





3010 

POKE 34,0: POKE 33,40: HOME 





3020 

HTAB 18: INVERSE : PRINT "INIT“ 





3030 

VT AB 5: HTAB 14: INVERSE : PRINT "RETURN": 

NORMAL : VTAB 5: 

HTAB 

21: 


PRINT "= MENÜ" 





3065 

in 

ii 

•t 

o 

ii 

»-► 





3070 

VT AB 8: INPUT "VOLUME? ";V 





3090 

HTAB 1: VT AB 12: PRINT "SLOT # 6 - RIGHT?" 

: VTAB 12: 

HTAB 20 



3091 

GET ES 





3092 

IF ES = "N“ THEN 3095 





3093 

GOTO 3110 





3095 

VT AB 12: HTAB 28: INPUT "SLOT # ";S 





3110 

HTAB 1: VT AB 16: PRINT "DRIVE # 1 - RIGHT? 

": VTAB 16 

: HTAB 20 


3112 

GET ES 





3113 

IF ES = "N" THEN 3117 





3115 

GOTO 3120 





3117 

VT AB 16: HTAB 27: INPUT "DRIVE # ";D 





3120 

VT AB 19: HTAB 1: PRINT "TH IS PROGRAM WILL 

BE THE IST 

ON THE 

DISKYOU' 


RE FORMATT IN'.": PRINT 





3122 

VTAB 22: HTAB 1: PRINT "DO YOU HAVE THE RIGHT DISK IN DRIVE 

iijjnn it 

: VTAB 


22: HTAB 39 





3124 

GET ES: IF ES = "N" THEN 3124 





3600 

PRINT CHRS (i3> + CHRS < 4 ) "INI THELLO , V " ; 

V; " ,S";S; " 

, D" ; D 

• 


3700 

PRINT CHRS (13) + CHRS (4) "LOCK HELLO“ 





3800 

GOTO 3000 





4000 

REM *** LOCK *** 





4010 

POKE 34,0: POKE 33,40: HOME 





4020 

HTAB 18: INVERSE : PRINT "LOCK" 





4030 

VTAB 5: HTAB 14: INVERSE : PRINT "RETURN": 
PRINT "= MENU" 

NORMAL : 

VTAB 5: 

HTAB 

21: 

4070 

PRINT : PRINT : INPUT "WHAT FILE? ";FS 





4080 

DS = CHRS (4) 





4090 

PRINT DS;" LOCK"; FS 





4100 

GOTO 4000 





5000 

REM *** UNLOCK *** 





5010 

POKE 34,0: POKE 33,40: HOME 





5020 

HTAB 17: INVERSE : PRINT "UNLOCK" 





5030 

VTAB 5: HTAB 14: INVERSE : PRINT "RETURN": 
PRINT "= MENU" 

NORMAL : 

VTAB 5: 

HTAB 

21: 

5070 

PRINT : PRINT : INPUT "WHAT FILE? ";FS 





5080 

DS = CHRS (4) 





5090 

PRINT DS; "UNLOCK" ; FS 





5100 

GOTO 5000 





6000 

REM *** DELETE *** 





6010 

POKE 34,0: POKE 33,40: HOME 





6020 

HTAB 17: INVERSE : PRINT "DELETE" 





6030 

VTAB 5: HTAB 14: INVERSE : PRINT "RETURN" 
PRINT "= MENU" 

NORMAL : 

VTAB 5: 

HTAB 

21: 

6070 

PRINT : PRINT : INPUT "WHAT FILE? ";FS 





6080 

DS = CHRS (4) 





6090 

PRINT DS; "DELETE"; FS 





6100 

GOTO 6000 





7000 

REM *** RENAME *** 





7010 

POKE 34,0: POKE 33,40: HOME 





7020 

HTAB 17: INVERSE : PRINT "RENAME" 





7030 

VTAB 5: HTAB 14: INVERSE : PRINT "RETURN" 
PRINT "= MENU" 

NORMAL : 

VTAB 5: 

HTAB 

21: 
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7070 PRINT : PRINT 
7080 PRINT : PRINT 
7100 Dt = CHRt (4) 


INPUT "WHAT FILE? - ; 0$ 
INPUT "NEW NAME? " ; Nt 


7110 

PRINT Dt; "RENAME " 

" ; Nt 







7120 

GOTO 7000 








8000 

REM *** EXIT *** 








8010 

POKE 34,0 








8020 

POKE 33,40 








8100 

HOME 








8999 

END 








9000 

INVERSE :Dt = CHRt (7) 








9001 

INVERSE : Dt = CHRt (7) 








9002 

IF PEEK (222) = 1 THEN PRINT : 
NOT AVAILABLE" : GOSUB 9090 

PRINT : HTAB 

10: 

PRINT 

Dt; " 

LANGUAGE 

9010 

IF PEEK (222) = 4 THEN 
OTECTED" : GOSUB 9090 

PRINT : 

PRINT : HTAB 

14: 

PRINT 

Dt; " 

WRITE 

PR 

9020 

IF PEEK (222) = 6 THEN 
FOUND": GOSUB 9090 

PRINT : 

PRINT : HTAB 

14: 

PRINT 

Dt; " 

FILE 

NOT 

9030 

IF PEEK (222) = 8 THEN 
R": GOSUB 9090 

PRINT : 

PRINT : HTAB 

16: 

PRINT 

Dt; " 

I/O ERRO 

9035 

IF PEEK (222) = 10 THEN 
CKED" : GOSUB 9090 

PRINT : 

PRINT : HTAB 

14: 

PRINT 

Dt; 

"FILE 

LO 

9040 

IF PEEK (222) = 16 THEN 
ERROR": GOSUB 9090 

PRINT : 

PRINT : HTAB 

14: 

PRINT 

Dt; 

"SYNTAX 

9050 

IF PEEK (222) = 13 THEN 
PE MISMATCH": GOSUB 9090 

PRINT : 

PRINT : HTAB 

12: 

PRINT 

Dt; 

"FILE 

TY 

9080 

NORMAL 








9085 

GOTO 9100 








9090 

FOR E = 1 TO 1000: NEXT : 

RETURN 








9100 

10000 

10010 

10020 

10030 


*** 


VT AB 5: HTAB 21 


GOTO 610 
REM *■** SAVE 
POKE 34,0: POKE 33,40: HOME 
HTAB 18: INVERSE : PRINT "SAVE" 

VTAB 5: HTAB 14: INVERSE : PRINT "RETURN": NORMAL 
: PRINT "= MENU" 

10040 PRINT : PRINT : PRINT "IF YOU'RE CONTINUIN' THE ";: INVERSE ■ PRINT 
"SAVE";: NORMAL : PRINT "-PART OF": PRINT : PRINT "THIS PROGRAM IT W 

ILL DESTROY THE FIRST": PRINT : PRINT "FILE ON YOUR DISK CALLEd’'HELL 
□ , I N 

10050 PRINT : PRINT "DEPENDENT OF IT 'S LOCKED OR NOT. INSTEAD" : PRINT "OF 
Y ™AT ™ 1? PR P GRAM WILL SELF-SAVE AND": PRINT "-LOCK. IF YOU'RE READ 

10060 GET Et: IF Et = "Y" THEN 10070 
10062 IF Et = CHRt (13) THEN 610 
10065 GOTO 10060 

10070 Dt = CHRt (13) + CHRt (4): PRINT Dt; "UNLOCK HELLO": PRINT Dt; "DELE 
TE HELLO": PRINT Dt; "SAVE HELLO": PRINT Dt; "LOCK HELLO": GOTO 610 


Auflösung des CPU-Rätsels 

aus Heft Nr. 6 


Wenn Sie die Fragen dieses 
Rätsels richtig beantwortet 
haben, ergibt sich folgende 
Zahl: 

- Welche Aufgabe hat ein Vi- 
deocontroller? 3 = Bildauf- 
bau in einem Computer 

- Bedeutung von CP/M? 5 = 


Diskettenbetriebssystem 

- Was ist ein Sprite? 7 = 
Durch Hardware belegte 
Figur 

- Welche Funktion erfüllt 
ein Paddle? 10 = Drehregler 
für analoge Eingaben 

- Welche Computersprache 


verwendet zum Zeichnen 
eine Schildkröte? 1 4 = Logo 

- Wozu dient ein RESET? 17 
= Zum Rücksetzen des 
Computers 

- Welcher Teil eines Compu- 
ters wird mit Akkumulator 
bezeichnet? 20 = Hauptre- 


gister des Prozessors 

- Was ist BIOS? 23 = Teil 
eines bekannten Betriebs- 
systems 

- Ein Netzwerk ist? 25 = Die 
Zusammenschaltung von 
mehreren Computern 

3 + 5 + 7+ 10+ 14+ 17 + 20 + 

23 + 25 = 124 
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2. Elektronik- & Computertage 

Saar 

2. Verkaufs- und Informationsmesse für Elektronik- und Microcomputer 
vom 6.-8. September 1985 in der Kongreßhalle Saarbrücken 


punkt. Im Foyer West der 


Mit über 60 Ausstellern und 
fast 7000 Besuchern waren 
die 1. Elektronik- & Compu- 
tertage Saar Für alle Beteilig- 
ten ein großer Erfolg. 

Nach der Eröffnung durch 
den Schirmherm. dem saar- 
ländischen Landtagspräsi- 
denten Albrecht Herold. Ver- 
tretern der Ministerien sowie 
Presse. Rundfunk und Fern- 
sehen, bot sich den Besu- 
chern auf einer Ausstellungs- 
fläche von fast 1 100 qm ein 
repräsentativer Querschnitt 
durch die gesamte Elektro- 
nik- und Microcomputcr- 
branche. 

Einen sehr hohen Besucher- 
anteil stellten Vertreter von 
Handwerk- und Industriebe- 
trieben aus dem Saarland und 
den benachbarten Regionen 
dar. Besonders erfreulich war 
die Tatsache, daß viele Besu- 
cher aus Frankreich. Luxem- [ 
bürg und sogar aus Belgien 


die Elektronik- & Computer- 
tage Saar besucht haben. 

An diesem positiven Ergeb- 
nis hatte sicherlich die Prä- 
sens von namhaften Firmen 
wie APPLE. EPSON. FUJIT- 
SU. HP. IBM. KONTRON. 
OLIVETTI. TOSHIBA. 
TRIUMPH ADLER. COM- 
MODORE und WANG. um 
nur einige wenige zu nennen, 
einen großen Anteil. 

Daß diese Firmen auch dieses 
Jahr ihr Kommen, teilweise 
mit erheblicher Standvergrö- 
ßerung, wieder zugesagt ha- 
ben, ist ein Grundstein für ein 
noch besseres Resultat. 

Neben den kommerziellen 
Rechnern findet der Interes- 
sent eine große Auswahl an 
Zubehör und Fachliteratur. 
Aber auch die Elektronik mit 
modernen Kommunikations- 
techniken und der Video- 
und Audiobereich gehören 
zum Ausstellungsschwer- 


Kongreßhalle finden unsere 
jüngeren Besucher ihr 
„Heimcomputerparadies“, 
mit allem Zubehör, was das 
Herz begehrt. 

Die Elektronik- & Computer- 
tage Saar werden auch 1985 
nach dem bereits bewährten 
Konzept mit folgenden 
Schwerpunkten ausgerichtet: 

- Kommerzielle Hard- und 
Software aller marktführen- 
den Hersteller für Handel, 
Handwerk, Industrie und 
Dienstleistung! 

- Ständige Vorführungen von 
Standard-Software, wie Fi- 
nanzbuchhaltung, Lohn- und 
Gehaltsabrechnung. Lager- 
und .Auftragsverwaltung so- 
wie der modernen Textverar- j 
beitung für den Klein- und J 
Mittelbetrieb! 

- Besondere Programm pro- j 
dukte für freiberuflich Tätige 
wie Rechtsanwälte. Arzte, 


Steuerberater, Architekten 
usw.! 

- Fachvorträge durch Refe- 
renten namhafter Firmen 
und dem Institut für Infor- 
matik in Saarbrücken! 

- Große Auswahl an Fachli- 
teratur! 

- Audio- und Video sowie 
moderne Kommunikations- 
techniken! 

- Umfangreicher Zubehör- 
handel vom Laserdrucker bis 
zur einfachen Diskette! 

- Heimcomputer und Zube- 
hör in allen Preisklassen für 
unsere jüngeren Messebesu- 
cher! 

- Meßgeräte. Elektronikteile 
und Zubehör für Profis und 
Bastler! 

- Besondere Vorführungen 
im Bereich Amateurfunk, wie 
Meteosatempfang, Funkfern- 
schreiben per Computer 
usw., durch den Deutschen 
Amateur Radio Club. Orts- 
verband Völklingen. 


Ein Super-Disassembler 

TI-99 


Zum Programmieren in Ma- 
schinensprache benötigt man 
neben einem Assembler und 
einem Monitorprogramm 
auch einen Disassembler. Ei- 
nen solchen stellt das folgen- | 
de Programm dar. das um vie- 
le Besonderheiten erweitert 
wurde. Es läuft auf den 1 1-99 
mit Extended Basic. Diskette 
und 32K-Speichererweite- 
rung. 

Disassembler werden ver- 
wendet, um z. B. das Be- 
triebssystem eines Compu- 
ters zu analysieren oder Feh- 
ler in eigenen Maschinenpro- 
grammen aufzuspüren. Der 
abgedruckte Disassembler 


hat aber einige Zusatzfunk- 
tionen. die meist fehlen, ob- 
wohl diese sehr wichtig sind: 

- Relative Sprünge und 
CRU-Bit-Befehle werden 
auch für negative Werte kor- 
rekt disassembliert. z. B. JOC 
S-8 oder TB -20. Dabei wird 
bei Relativsprüngen dieabso- i 
lute Adresse des Sprungzicls 
berechnet. 

- Der Pseudo-Befehl NOP 
(No Operation) wird erkannt. 

- Die Befehle IDLE. RSET. 
CKON. CKOF und LREX. 
die zwar der TMS9900 ver- 
steht. die aber auf dem TI-99 
nicht verwendet werden, wer- 
den ebenfalls disassembliert 


und mit einem Fragezeichen j 
angezeigt, z. B. “IDLE?". 

- Die wichtigste Besonder- 
heit: Adressen im CPU-R AM 
von >8300 bis >83FF sowie 
der Sprung in den GPL-Inter- J 
preter NEXT (>0070) werden 
statt eines Zahlenwertes als | 
Labels ausgegeben. Z. B. ist | 
der Befehl SB §STATUS- 
,§JOVSTX erheblich leichter 
zu verstehen als SB j 
§>837C.§>8377. 

Zur Programmbedienung: j 
Sobald es mit RUN gestartet j 
wird, erscheint eine über- 
sichtliche Eingabemaske. 
Hier geben Sie die Start- und 
die Endadresse des zu disas- 


für den 


semblierendcn Bereichs ein. 
Diese Eingaben können Sie 
dezimal oder hexadezimal 
machen. Im letzteren Fall 
müssen Sic das Hex-Symbol 
“>" voranstellen. Außerdem 
können Sie wählen, ob das 
Listing zusätzlich auf dem 
Drucker oder auf Diskette 
ausgegeben werden soll. 

Kurz darauf beginnt das Pro- 
gramm mit dem Disassem- 
blieren. Die Ausgaben haben 
auf dem Drucker und dem 
Bildschirm das gleiche For- 
mat. nur daß auf dem 
Drucker mehr Zeichen in je- 
der Zeile darstellbar sind. 
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0AA8 

02 E0 

LWP1 

GPLWS 




83E0 



>833C 

PABLST 

0AAC 

B80E 

AB 

R 14,§TIMER 

>833E 

VARLST 


8379 



>8340 

VDPSTR 

0AB0 

C320 

MOV 

§UDFINT.R 1 2 

>8344 

RUNFLG 


83C4 



>8345 

BASFLG 

0AB4 

1301 

JEQ 

>0AB8 



0AB6 

069C 

BL 

*R 12 

>834A 

FAC 

0AB8 

04C8 

CLR 

R8 

>8354 

OVLERR 

0ABA 

02 E0 

LWPI 

INT WS 

>835C 

ARG 


83C0 



>836E 

VSPTR 

0ABE 

0380 

RTWP 


>8370 

VHIMEM 


1. Spalte: Speicheradresse 


2. Spalte: Inhalt der Adresse 

3. Spalte: Assembler-Befehl 

4. Spalte: Zugehörige Operanden 

Folgende Tabellen werden statt der entsprechenden Adressen 


>8372 DATSTK 
>8373 SUBSTK 
>8374 K BOARD 
>8375 ASCII 


ange/eigt: 

>0070 NEXT = Sprung in den G PL- Interpreter 

>2008 NUMASG = Numerischen Parameter zuweisen 

>200C NUMREF = Numerischen Parameter holen 

>2010 STRASG = Stringparametcr zuweisen 

>2014 STRREF = Stringparameter holen 

>2018 XMLLNK = ROM-Routinen aufrufen 

>20 IC KSC'AN = Tastaturabfrage 

>2020 VSBW = Ein Byte in den Video-RAM schreiben 

>2024 VMBW = Mehrere Bytes in den Video-RAM 


>8376 JOYSTY 
>8377 JOYSTX 
>8378 RANDOM 
>8379 INTCNT 
>837A SPRMOT 

>837B VSTAT 
>837C STATUS 
>8384 XHIMEM 


>2028 VSBR 
>202C VMBR 

>2030 VMTR 
>2034 ERR 
>8300 PAD 
>83 IE BASCMD 

>8322 ERRCOD 

>832E AC'TLIN 
>8330 LSTLIN 
>8332 FSTLIN 
>833 A SUBLST 


schreiben 

= Ein Byte aus dem Video-RAM lesen 
= Mehrere Bytes aus dem Video-RAM le- 
sen 

= VDP-Register schreiben 
= Fehlermeldung ausgeben 
= CPU-RAM-Pad 


>8386 X Fl FREE 

>83CO INT WS 
>83C2 IFLAG 
>83C4 UDFINT 
>83CC SNDLST 


= Zeiger auf gerade bearbeiteten Basic-Be- 
fehl 

= Fehlercode bei Rückkehr aus Maschi- 
nenprogramm 

= Zeiger auf gerade bearbeitete Basic-Zeile 
= Zeiger auf Ende der Zeilenliste 
= Zeiger auf Beginn der Zeilenliste 
= Zeiger auf Liste der CALL-Unterpro- 


>83C'E SNDBYT 
>8 3 DO GRMSRC 
>83D2 ROMSRC 
>83D4 V1COPY 
>83 D6 CLSCNT 
>83D8 SCANRT 
>83E0 GPLWS 


gram me 

= Zeiger auf Liste der PAB-Blöcke 
= Zeiger auf Liste der Variablen 
= Zeiger auf freien Video-RAM für Strings 
= Basic-Run-Flag (0 oder 255) 

= Basic- Flag- Byte (TRACE. PROTEC- 
TION. NUM etc.) 

= Fließkomma-Akku 1 
= Fehlerflag bei Fließkomma-Operationen 
= Fließkomma-Akku 2 
= Value Stack Pointer 
= Höchste nutzbare Adresse im Video- 
RAM 

= Zeiger auf GPL-Daten-Stack 
= Zeiger auf GPL-Unterprogramm-Stack 
= ln CALL KEY gewählter Tastaturmodus 
= Wert der gedrückten Taste bei 
SCAN/KSCAN 
= Y'-Koordinate des Joysticks 
- X-Koordinate des Joysticks 
= Zufallszahlen 

= Intcrruptgcsteuerter Counter 
= Höchste Nummer der Sprites, die bewegt 
werden können 
= VDP-Status-Rcgistcr 
= GPL-Statusbyte 

= Höchste nutzbare Adresse der Memory 
Expansion 

= Zeiger auf höchste freie Adresse der Me- 
mory Expansion 
= Interrupt-Workspace 
= Interrupt-Flag 
= User-defmed Interrupt 
= Zeiger auf Soundliste für automatische 
Tonerzeugung 

= Gerade gespieltes Soundbyte 
= GROM-Suchadresse 
= ROM-Suchadresse 
= Kopie des VDP-Registers 1 
= Counter für Clearscreen 
= Rücksprungadresse von SCAN/KSCAN 
= GPL-Workspace 


i 


100 

! # W ***** * * * * * * * * * * ¥ 




110 

! * * * * * * X ¥ * * ¥ * * * * * V: V: X X 




120 

! * 


* 




130 

1 * 

DISASSEMBLER * 




140 

i * 


* 




150 

1 ******** ***** 




1A0 

• *** * ********** W ¥ ¥ * 




170 

| 






180 

! F ü r 

den TI 

-99 mit Extended Basic 


190 

| 






200 

! (c ) 

Mn rt i n 

Kotull.a 198 

5 



210 

! 






220 

! 


— 

— 



— 

230 

1 






240 

DATA 

"SZC ", 

"SZCB” , "S 

* 

"SB ","C 

" , " CB " 

250 

DATA 

" A 

"AB " , ” MOV 

H 

V 

"MO OB" . "SOG 

" . "SOGB” 

2A0 

DATA 

"JMP ", 

" ,JLT ” , " JLE 

}> 

•» 

" JE0 " , " JHE 

" . " JGT " 

270 

DATA 

"JNE ", 

" JNC ","J0C 

n 

” JNO " , " J L. 

" . " J H " 

280 

DATA 

"JOP ", 

" S D 0 " , "SBZ 

» 

•* 

"TB " 


290 

DATA 

"CÜC ", 

"CZC ” , " XÜE 

w 



300 

DATA 

"LDCR" , 

"ST GR" 
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310 

DATA 

"SRA " 

, "SRI. " . "SLA "."SRC ” 


320 

DATA 

"BI..UP" 

,"B ","X " , "CLR •' , "NEG 

"."INO " 

330 

DATA 

"INC " 

. " INCT " . " DEC " - " DECT " . " BL 

" . "SUPB" 

340 

DATA 

"SETO" 

, "ABS " 


350 

DATA 

"LI " 

. " A I " , " AND I " , " OR I " . " C I 

M 


360 ' Labels für CPU-RAM im Bereich >8300 bis >83FI- **************************** 

370 DATA 0 , PAH , 30 , BASCMD . 34 , ERRCOD , 46 , ACT L IN . 48 . 1.STL IN , 50 , F ST LI N , 58 , SUBLST 

380 DATA 60 , PABL.ST , 62 , VARLST . 64 , UDPSTR , 68 , RUNFLG , 69 , BASF LG , 74 , F AC 

390 DATA 84 . OYLERR .92 , ARG , 1 10 .USPTR. 1 12 . VHIMEM ,114. BATST K . 1 15.SUB5I K 

400 DATA 116, KBOARD, 117. ASCII . 118, JOYSTY. 119. JOYSTX. 1.20, RANDOM. 121 .INTCNT 

410 DATA 122 . SPRMOT , 1 23 , OSTAT , 124 .STATUS , 132 , XHIMEM , 134 , XHFREE . 192, INTUS 

420 DATA 194 , IFLAG .196, UDFINT , 204 , SNDLST . 206 . SNDBYT , 208 , GRMSRC ,210, RQMSRC 

430 DATA 212 , V1C0PY , 214 , CLSCNT .216.SCANRT ,224, GPLUS 

440 1 i abels für Assemb Ler-H i Ifsprog ramme im Low Memory von >2000 - >2414 ****** 
450 DATA NIJMASG , NUMREF . STRASG , STRREF . XMLLNK , KSCAN , OSBU . OMBW , VSBR , VMBR , OUTR , ERR 
460 ! Definitionen und Daten ei niesen ****************************************** 
470 DIM FM1*( 11) ,FM2*(15> ,FM3*(2> ,FM4$ < 1) ,FM5* (3) 

480 DIM FM6$ ( 13 > . FM8* ( 4 ) , LABEL*(1 ,255) 

490 FOR 1=0 TO 11 :: READ FM1*(I>:: NEXT I 
500 FOR 1=0 TO 15 :: READ FM2*(I):: NEXT I 
510 READ FM3*(0) ,FM3S(1) ,FM3$(2) 

520 READ FM4$(0) ,FM4$(1> 

530 READ FM5$ ( 0 ) , FM5$ ( 1 ) , FM5$ ( 2 > , FM54 ( 3 ) 

540 FOR 1=0 TO 13 :: READ FM6*(I>:: NEXT I 
550 FOR 1=0 TO 4 :: READ FM8$(I):: NEXT T. 

560 HX$=" 01 23456789 ABCDEF" 

570 DEF HEX* ( X ) =SEG* < HX* , INT ( X/ 1 6 ) + 1 . 1 > &SF.G* ( HX* . X-INT ( X/ 1 6 ) * 1 6 + 1 , 1 > 

580 DEF HEXU* ( X ) =HEX* (INI (X/256) ) 4.HEX* ( X-INT ( X/256 ) *256 > 

590 DEF DEZ(X*)=(POS( HX* ,SEG*(X* . 1 . 1 > . 1 >-l ) *16+P0S ( HX* ,SEG* (X* ,2, 1 ) , 1 )-l 
600 DEF DEZU ( X* ) =DEZ ( SEG* ( X* , 1 . 2 ) ) *256+DEZ < SEG* ( X* , 3 . 2 > > 

610 DEF C0MPL2= 1+65536* ( I >32767 ) 1 Zweierkomplement einer Integerzahl 

620 1 Titelbild **************************************************************** 

630 CALL CHAR ( 42 . "AA55AA55AA55AA55” .91 . "7E8199A1 A199817E" > 

640 CALL CHAR < 136.RPT *1"0".8)&"FF"> 

650 CALL CHAR( 128. "DFBF60C09 19B959 1 9 1808080C060BFDF ” ) 

660 CALL CHAR < 1 30 , "FBFD06030 1010149516151490306FDFB " > 

670 CALL CLEAR :: CALL HCHAR < 2 , 4 , 42 , 26 > 

680 CALL OCH AR (3,4,42.5) : : CALL OCHAR < 3 . 29 , 42 ,5) 

690 CALL MAGNIFY < 3) s : CALL SPRITE ( * 1 , 1 28 ,2.28, 60 > 

700 DISPLAY AT < 5 , 1 1 ) S I ZE (12) s "DISASSEMBLER" 

710 CALL HCHAR (8.4,42,26) 

720 DISPLAY AT (12,4) : CHRt (91)6" MARTIN KOI ULLA 1985" 

730 CALL HCHAR ( 13,6, 136,22) 

740 DISPLAY AT(15.1>:"- ST ARTADRESSE?" : ENDADRESSE?" 

750 DISPLAY ATI 19,1):"- DRUCKER AUSGABE' 5 N" 

760 ACCEPT AT ( 15 r 20 ) SIZE < 5 ) 0 ALI DATE ( HX$ .">">: ST 4 

770 IF ASC ( ST $ ) =62 THEN ST ART = DEZU ( SEG$ ( ST$ ,2,4) ) ELSE START=VAL < ST* ) 

780 START=INT (START/2) *2 

790 ACCEPT AT ( 17 , 20 ) SIZE ( 5) UAL I DATE (HX*,")"): EN* 

800 IF ASC (EN*) =62 THEN ENDE=DEZU ( SEG* ( EN* . 2 , 4 ) ) ELSE ENDE=UAL ( EN* ) 

810 ENDE=INT < ENDE/2 ) *2 

820 ACCEPT AT ( 19 , 20) SIZE ( -1 ) OALIDATE ( " JN" ) : FILE* 

830 IF F ILE= 1 THEN CLOSE tl :: FILE=0 
840 IF FILE*="N" THEN FILE=0 5! GOTO 890 
850 FILE=1 

860 DISPLAY AT(21.1):"- DRUCKERNAME? RS232" 

870 ACCEPT AT (21 , 16 ) SIZE ( -12 ) OAL.IDATE ( UAL.: ' HA . DIGIT . " , = " > : DRUCK* 

880 OPEN il s DRUCK* 

890 CALL CLEAR :: CALL CHARSET :: CALL DELSPRITE ( t 1 ) 

900 FOR I=START TO ENDE STEP 2 
910 CALL PF.EK ( C0MPL2 . HI BYTE . LOBYTE ) 

920 U0RD=HIBYTE*256+L0BYTE 

! 930 IF UORIK 32768 THEN NEGUORD=UORD ElSE NEGU0RD=U0RD-65536 
940 OUT *=HEXW* (1)6" "&HEXU* ( WORD ) 6" " 

I 950 ST ARTCMD=I 
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960 ! Pseudo-Befehl NOP *** 

970 IF U0RD=4096 THEN 0UT*=0UT*&"NQP" :: GOTO 1270 
980 ! Format 1 ************ 

990 IF WORD > 16383 THEN 1480 
1000 ! Format 2a *********** 

1010 IF U0RD>4095 AND U0RDC7424 THEN 1570 
1020 ! Format 2b *********** 

1030 IF WORD >7423 AND WORD <8192 THEN 1640 
1040 ! Format 3 ************ 

1050 IF UORD >8191 AND U0RD<11264 THEN 1690 
1060 ! Format 4 ************ 

1070 IF WORD) 12287 AND U0RD< 14336 THEN 1770 
1080 ! Format 5 ************ 

1090 IF UORD >2047 AND U0RD<3072 THEN 1850 
1100 ! Format 6 ************ 

1110 IF UORD > 1023 AND U0REK2048 THEN 1910 
1120 ! Format 7 ************ 

1130 IF U0RD=832 OR U0RD=864 OR U0RD*=896 THEN 1970 
1140 IF U0RD=928 OR U0RD=960 OR U0RD=992 THEN 1970 
1150 ! Format 8a *********** 

1160 IF UORD >511 AND U0RD<672 THEN 2050 
1170 ! Format 8b *********** 

1180 IF U0RD“736 OR U0RD=768 THEN 2120 
1190 ! Format 8c *********** 

1200 IF UORD >671 AND U0RIK72O THEN 2160 
1210 ! Format 9a *********** 

1220 IF UORD > 1 1263 AND U0RD< 12288 THEN 2210 
1230 1 Format 9b *********** 

1240 IF UORD > 1 4335 AND U0RD< 16384 THEN 2280 
1250 ! DATA-Befehle ******** 

1260 OUT * : =ÜUT $6 "DATA > "6HEXU* l UORD ) 

1270 CALL HCHAR ( 24 , 1 . ASC < OUT * > > 

1280 CALL HCHAR (24,2. ASC < SEG* < OUT* , 2.1))) 

1290 IF LEN < OUT* ) < 31 THEN PRINT SEG* < OUT* , 3 . 255 > : : GOTO 1360 
1300 PRINT SEG* (OUT* ,3, 28) 

1310 CALL HCHAR (23,31. ASC ( SEG* < OUT *,31 ,1 )&" ")) 

1320 CALL HCHAR (23,32. ASC ( SEG* ( OUT* .32,1)6" ")) 

1330 IF LEN < OUT * ) < 33 THEN 1360 
1340 PRINT :: FOR K=33 TO LENT OUT* ) 

1350 CALL HCHAR <23,K-17, ASC < SEG* (0UT*,K,1))):: NEXT K 
1360 IF FILE=1 THEN PRINT SlüOUT* 

1370 X1 = ST ARTCMD+2 :: IF XI >32767 THEN X1=X1~65536 

1380 X2=C0MPL2 

1390 FOR J=X 1 TO X2 STEP 2 

1400 CALL PEEK ( J , A , B ) 

1410 PRINT TAB<4) ;HEXU*( A*256+B> 

1420 IF FILE= 1 THEN PRINT t 1 : TAB < 6 ) ; HEXU* ( A*256+B ) 

1430 NEXT J 
1440 NEXT I 

1450 PRINT :: DISPLAY BEEP : "FERTIG-BITTE SPACE DRUECKEN ! * 

1460 CALL KEY (0,K,S):: IF K< >32 THEN 1460 ELSE 630 

1470 ! FORMAT 1 **************************************************************** 
1480 0UT*=0UT*6FM1 *( INT <U0RD/4096)-4)6" " 

1490 DESTINATI0N=15 AND( INT (UORD/64) ) 

1500 S0URCE=15 AND NEGUORD 

1510 TYPEDEST=3 AND ( INT ( U0RD/1024 ) ) 

1520 TYPESOURCE =3 AND ( INT ( UORD/ 16 ) ) 

1530 CALL DECODEC SOURCE, TYPESOURCE, I/S*, OUT*) ! SUB "OPERANDEN DEKODIEREN" 

1540 CALL DECODE ( DESTINATION , TYPEDEST , I , "D" , OUT* ) ! SUB "OPERANDEN DEKODIEREN" 
1550 GOTO 1270 

1560 ! FORMAT 2a *************************************************************** 
1570 OUT *~OUT 46FM2*( INT ( UORD/ 256 ) - 1 6 ) 6" " 

1580 DISPLACE=L0BYTE*2 

1590 IF DISPLACE >255 THEN DISPLACF.=DISPLACE-512 
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1600 JUMPADDR=I+DISPLACE+2 

1610 IF JUMPADDR=1 12 THEN 0UT$=ÜUT«6"NEXT" :: GOTO 1270 
1620 OUT $=OUT $6" > "6HEüXU$ ( JUMF'ADDR ) : : GOTO 1270 

1630 ! FORMAT 2b *************************************************************** 
1640 0UT*=0UT$&FM2*< INT < UORD/256 ) ~16 ) 6" " 

1650 UORD=UORD AND 255 

1660 IF U0RD<128 THEN QUT$=ÖUT$8<STR* ( UORD ) ELSE OUT*=OUT*«.STR* < UORD-256 ) 

1670 GOTO 1270 

1680 ! FORMAT 3 **##***#«**#**********»*****»#********#***#«***#*********#***#** 
1690 0UT$=0UT««.FM3*(INT(U0RH/1024)-8)a," " 

1700 TYF'ESOURCE-INT ( WORD/ 16 ) AND 3 
1710 SOURCE=NEGUORD AND 15 

1720 CALL DECODE< SOURCE. TYPESOURCE. I . "S" ,OUT$) ! SUB "OPERANDEN DEKODIEREN" 

1730 DESTINATIQN=INT ( UORD/64 > AND 15 
1740 OUT $=0UT$6"R"&STR$ ( DESTINATION ) 

1750 GOTO 1270 

1760 1 FORMAT 4 ****************************************************************** 
1770 0UT*=0UT*?,FM4* (INT < UORD/1 024 ) ~i 2 ) 6" " 

1700 TYPESOURCE= INH WORD/ 1 6 ) AND 3 
1790 SOURCE =NEGUORD AND 15 

1800 CALL DECODE (SOURCE, TYPESOURCE. I. "S", OUT« ) ! SUB "OPERANDEN DEKODIEREN" 

1810 CRULINE=INT< UORD/64) AND 15 
1820 OUT $=OUT$&STR$ ( CRUL INE ) 

1830 GOTO 1270 

1840 ! FORMAT 5 **************************************************************** 
1850 OUT $=OUT $ÄiFM5ft (HI BYTE -8)6" " 

1860 REGISTER=LOBYTE AND 15 

1870 SHIFTC0UNT=INT(L0BYTE/16 ) AND 15 

1880 OUT ♦=OUT*&”R"&STR$ < REGISTER ) &" . "&STR* < SHIFTCOIJNT ) 

1890 GOTO 1270 

1900 ! FORMAT 6 im***«#**********#***********#*********»****#******************)* 
1910 QUT*=0UT$6FM6*< INT (UORD/64) -16) 6" " 

1920 TYPESOURCE“ INT ( UORD/ 16) AND 3 
1930 SOURCE^UORD AND 15 

1940 CALL DECODE ( SOURCE , TYPESOURCE , I , "D" . OUT* ) ! SUB "OPERANDEN DEKODIEREN" 

1950 GOTO 1270 

1960 ! FORMAT 7 **************************************************************** 
1970 IF UORD-832 THEN OUT*=OUT$&"IDLE?" 

1980 IF U0RD=864 THEN OUT*=OUT*& "RSET?" 

1990 IF U0RD=896 THEN OUT$=OUT*&"RTUP" 

2000 IF U0RD=928 THEN 0UT*=ÜUT*6"CK0N?" 

2010 IF W0RD=960 THEN OUT$=OUT$&"CKOF'>" 

2020 IF U0RD=992 THEN OUT*=OUT*&"LREX?" 

2030 GOTO 1270 

2040 ! FORMAT 8a *************************************************************** 
2050 0UT$=0UT$6FM8$( INT (UORD /32)-16)6" " 

2060 REGISTER=NEGUORD AND 15 
2070 OUT $=OUT $6 "R"&STR*( REGISTER) 

2080 CALL DEEK ( I , IMMEDI ATE ) 

2090 OUT $=OUT$& " , > "&HEXU* < IMMEDI ATF. ) 

2100 GOTO 1270 

2110 ! FORMAT 8b *************************************************************** 
2120 CALL DEEK (I. IMMEDI ATE) 

2130 IF U0RD=736 THEN 0UT$^0UT$6"LWPI >"6HEXU$ ( IMMEDI ATE) : : CALL LABEL ( I , OUT $ ) : : 
GOTO 1270 

2140 OUT $=OUT $6"LI M I "6STR* ( IMMEDI ATE ): : GOTO 1270 

2150 ! FORMAT 8c *************************************************************** 
2160 IF UORD <704 THEN OUT$ = OUT*&"STUP" ELSE OUT$=--OUT$&"STST" 

2170 REGISTER-NEGUORD AND 15 
2180 OUT $=OUT $6" R"&STR$ ( REGISTER ) 

2190 GOTO 1270 

2200 ! FORMAT 9a *************************************************************** 
2210 0UT$=0UT$6 "XOP " 

2220 SOURCE=NEGUORD AND 15 

2230 TYPESOURCE=INT ( UORD/16) AND 3 
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2240 CALL DECODE ( SOURCE , TYPESOURCE . I . "S" , OUT* ) ! SUB "OPERANDEN DEKODIEREN" 

2250 BEST IN ATION=I NT ( WORD/64 ) AND 15 

2260 OUT*= 0UT*6STR*( DESTINATION) : : 0010 1270 

2270 ! FORMAT 9b ******#*#**#**#**#»*«**#***#********###**#**######*###**###### 
2280 IF UORD< 15360 THEN 0UT*=0UT*6"MPY " ELSE OUT*=OUT*&"DIV " 

2290 SOURCE" NE GUORD AND 15 

2300 TYPESOURCE=I NT (WORD/16) AND 3 

2310 CALL DECODE (SOURCE. TYPESOURCE, I, "S", OUT*) ! SUB "OPERANDEN DEKODIEREN" 

2320 DESTINATION=INT < WORD/64 ) AND 15 

2330 0UT$=0UT*Äi"R"6STR* ( DESTINATION ) : : GOTO 1270 

2350 ! UNTERPROGRAMME *)(*****#***********)(■****#)(*)(***#*)()(***«******»****)(»****), 
2360 ! * * * * ******* * * * * * *****************************#•**#***##. 

2370 ! Adressierungsart dekodieren 

2380 SUB DECODE (OPERAND, TYPE. I,SD*, OUT«) 

2390 DEF C0MPL2— 1+65536* ( I >32767 ) 

2400 ON TYPE+1 GOTO 2420,2440.2460,2550 
2410 ! *-* WORKSPACE REGISTER *-* 

2420 OUT*=OUT $6 "R"4«STR* ( OPERAND ) : : GOTO 2560 
2430 ! *-* WORKSPACE REGISTER INDIRECT *■-* 

2440 0UT$=0UT$6"*R"&STRt (OPERAND) : : GOTO 2560 
2450 ! *-* SYMBOL IC MEMORY/ I NDEXED MEMORY *-* 

2460 1=1+2 :: CALL PEEK ( C0MPL2 . A , B ) 

2470 HX*="01 23456789 ABCDEF" 

2480 HX.l* = SEG*(HX*, INT(A/16>+1 , 1 ) &SEG* ( HX* , A-INT < A/16 )* 16+1 , 1 ) 

2490 HX2*=SEß*(HX*, INT (B/16)+l . 1)&SE6*(HX$,B-INT(B/16)#16+1,1 ) 

2500 IF OPERANIK >0 THEN 2520 

2510 0UT*=QUT*6CHR* ( 64 ) 6" > "6HX1*6HX2* :: CALL LABEL ( I , OUT* ): : GOTO 2560 
2520 OUT * = OUT *6CHR* ( 64 ) 6" > "6HX1*6HX2* :: CALL LABEL ( 1 , OUT* ) 

2530 0UT*=0UT*6" (R"&STR*( OPERAND >&") " : : GOTO 2560 
2540 ! *~* WORKSPACE REGISTER INDIRECT AUTO-INCREMENT *-* 

2550 OUT * = OUT *6"#R"iiSTR* ( OPERAND )&" + " 

2560 IF SD*="S" THEN OUT*=OUT*& " , " 

2570 SUBEND 

2580 ! Double Peek ( 16--B i t-Wort Lesen) 

2590 SUB DEEK < I , C ) 

2600 1=1+2 :: C0MPL2=I+65536* ( I >32767 ) 

2610 CALL PEEK ( C0MPL2 , A , EO 
2620 C=A*256+B : : SUBEND 

2630 ! Adresse durch Label, ersetzen 

2640 SUB L. ABEL (I, OUT*) 

2650 IF FLG THEN 2690 ELSE FLG=-1 
2660 RESTORE 370 :: DIM LABEL* ( 1 , 255 ) 

2670 FOR J=0 TO 40 s: READ ADR , LABEL* ( 0 . ADR ): : NEXT J 

2680 FOR J=0 TO 11 :: ADR=J*4+8 :: READ LABEL* ( 1 , ADR ): ; NEXT J 

2690 CALL PF.EK(I,A,B) 

2700 IF A*256+B= 112 THEN OUT * = SEG* ( OUT * , .1 , LEN ( OUT * ) -5 ) 6 "NEXT" :: SUBEXIT 
2710 IF A<>131 THEN 2740 

2720 IF LABEL* (0,B) < >"" THEN OUT*=SEG* ( OUT* . 1 , LEN ( OUT* ) -5 ) 6L ABEL* ( 0 , B ) 

2730 SUBEXIT 

2740 IF A< >32 THEN 2760 

2750 IF LABEL* ( 1 , B ) < > " " THEN OUT*=SEG* ( OUT * , 1 , LEN ( OUT* ) -5 ) &LABEL* ( 1 , B ) 

2760 SUBEND 

2770 END ! ******************************************************************** 
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Tips & Tricks 


Computer-Messen '85 

30. 8.- 8. 9. 85 Internationale Funkaus- 
stellung Berlin 

24. 9.-27. 9. 85 CAMP/Computer 

Graphics/Berlin 

Oktober EL-FA Elektrotechnische 

Fachausstellung/ Berlin 
9. 10.-13. 10. 85 Hobby-Elektronik 85/ 
Stuttgart 

9. 10.-14. 10. 85 Frankfurter Buchmesse 

17. 10.-20. 10. 85 CFA - Commodore 

Fachausstellung/Frankfurt 
28. 10 - 1. 11. 85 SYSTEMS 85/München 

12. 11.-16. 1 1. 85 PRODUCTRONICA 

Intern. Fachmesse 
Für die Fertigung 
in der Elektronik/München 


Computermessen im Ausland 

September 85 SICOB/Paris 

18. 9.-22. 9. 85 PCW/London 

26. 9- 2. 10. 85 Data - Internationale 

Messe Für Computer und 
Büro-Rationalisierung 
Oktober 85 COMDEX/Las Vegas, 

USA 

November 85 ELK.OM - Internationale 

Elektronik-Ausstellung/ 
Helsinki 

5. 1 1.-8. 1 1. 85 ELFACK - Internationale 
Elektronische Messe/ 
Göteborg 

Herausgeber des auf Seite 17 vor- 
gestellten Mailbox-Buehes ist 
Claus Warneke, Kirchhuchtinger 
Landstr. 243, 2800 Bremen 66 


Tips und Tricks für den CPC-464 

lOO n=12345 

110 a$=DEC$ ( (n, "######. ##"> 

120 PRINT a$ 

130 REM FORMATIEREN VON ZAHLEN FUER STRINGS MIT DEM CPC464 

140 REM ================================================== 

150 REM 

160 REM Das Formatieren von Zahlen bedeutete immer dann 
170 REM einen Programmieraufwand, wenn die Zahlen in 
180 REM Strings umzuwandeln waren, im Gegensatz zur 
190 REM formatierten Ausgabe in der PRINT-Anwei sung 
200 REM mittels PRINT USING. Der CPC464 besitzt einen 
210 REM entspr echenden Formatierbefehl fuer Zahlen. 

220 REM Allerdings enthaelt der Aufruf einen Schoenheits- 
230 REM -fehler, vermutlich der Grund, warum diese Funktion 
240 REM nicht im Benutz er —Handbuch beschrieben wurde. 

250 REM 

260 REM Der Aufruf geht wie folgt: 

270 REM DECK (<Ausdruck>, "Formatierungszeichen") 

280 REM wobei zu beachten ist, dasz 

290 REM 1. hinter DEC$ eine zusaetzliche Klammer (der 
300 REM "Schoenhei tsf ehl er " ) stehen musz , die auch 

310 REM nicht mehr zugemacht werden darf, 

320 REM 2. im Formatierungsstring keine BLANKS, d.h. also 
330 REM nur die Zeichen , " + " , , " . " und ent- 

340 REM halten sein duerfen. 
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Atari, Mastermind/Schlan- 
genkrieg, Kassette 10,50 
DM, Diskette 19,50 DM, Be- 
stell-Nr 141 

Tank-Battle-Oil Pamc, Kas- 
sette 12,50 DM, Bestell-Nr 
151 

Startup/Zeilen-Split/Tom- 
stone-City, Diskette 19,50 
DM, Bestell-Nr. I 71 

Painter/Hardcopy, Kasset- 
te 14,- DM. Diskette 19,50 
DM, Bestell-Nr, I 81 

The Big Quest/Fünf ge- 
winnt, Kassette 14,- DM, 
Diskette 19,50 DM, Bestell- 
Nr 191 

Splitt, Kassette 11- DM, 
Diskette 17,50 DM, Bestell- 
Nr I 101 

Ski/Mutation, Kassette 

14,50 DM, Diskette 19,50 
DM, Bestell-Nr. I 121 

Super Mmer/Diamonds, 
Kassette 14,50 DM, Disket- 
te 19,50 DM, Bestell-Nr 
122 

Donkey Kong/Kerzenheinz, 
Kassette 16,50 DM, Disket- 
te 19,50 DM, Bestell-Nr 
I 32 


Cave Man, Kassette 8- 
DM, Diskette 1 1,50 DM, Be- 
stell-Nr T 121 

Moon Race/Frogger/Slicks, 
Kassette 19,50 DM, Disket- 
te 25,50 DM, Bestell-Nr. 
T 22 

Panzerschlacht, Kassette 
8,- DM, Diskette 11,50 DM, 
Bestell-Nr T 32 


Wüstenrallye/Jet-Pac/Black 
Moore Castle Kassette 

17,50 DM, Diskette 23,50 
DM, Bestell-Nr C 32 


Waregames, Kassette 8,50 
DM, Bestell-Nr D 61 

Laser-Attack, Kassette 

8.50 DM, Bestell-Nr D71 

Hardcopy, Kassette 13,— 
DM, Bestell-Nr D 81 

Anwenderprogramm, Kas- 
sette 10,- DM, Bestell-Nr 
D 91 

Dragon Paint, Kassette 
14,- DM, Bestell-Nr. D 101 


VC-20, Bestellschem/Glük- 
ky, Kassette 8,50 DM, Dis- 
kette 15 - DM, Bestell-Nr 
V 61 

Multigraph/All Rammer, 
Kassette 1 1 ,- DM, Diskette 

15.50 DM, Bestell-Nr V 71 

Zyklo Meteorit, Kassette 
11- DM, Diskette 19,50 
DM, Bestell-Nr. V 81 

Garten'Schloß Gruseistein, 
Kassette 14 -DM, Diskette 

19.50 DM, Bestell-Nr V 91 

Fressman 'Outlaw, Kasset- 
te 14 - DM, Diskette 19,50 
DM, Bestell-Nr V 101 

Prost/Buffalo Bill. Kassette 
14- DM, Diskette 19.50 
DM, Bestell-Nr V 121 

Joy Man/Powerpack, Kas- 
sette 14- DM, Diskette 

19,50 DM, Bestell-Nr V 22 

Der rasende Malocher/ 
Frankie goes to Pharao, 
Kassette 14,- DM, Diskette 

19,50 DM, Bestell-Nr V 32 


ZX-Spectrum, Inventur, Kas- 
sette 12,- DM, Bestell-Nr 
S 41 

Missile-Comment, Kassette 

8.50 DM, Bestell-Nr S 51 

Defender/Lui der Wurm/Al- 
ternativer Zeichensatz, 
Kassette 13,50 DM, Be- 
stell-Nr S 61 

Matheprogramm/Bongo- 
Beecatcher, Kassette 

12.50 DM, Bestell-Nr S 71 

Solitaire/Superstat/Klein- 
stes gern Vielfache, Kas- 
sette 14,50 DM, Bestell-Nr 

Jump about, Kassette 

14.50 DM, Bestell-Nr S 91 

Pac-Man/Oil Pamc, Kasset- 
te 14,50 DM, Bestell-Nr 
S 101 


Commodore 64, Mauern/Wi- 
derstand, Kassette 8,- DM, 
Diskette 15,- DM, Bestell- 
Nr C 41 

Space-Comets/Erdspalte/ 
Sprite-Data, Kassette 15,— 
DM, Diskette 23,50 DM, Be- 
stell-Nr C 51 

Autostart/Bestellschein/Ro- 
adpamter, Kassette 16,50 
DM, Diskette 23,50 DM, Be- 
stell-Nr C 61 

Hardcopy/Space-Fighter/ 
Data-Generator, Kassette 

15.50 DM, Diskette 19,50 
DM, Bestell-Nr C 71 

Monster-Attack/Block-Pain- 
ter/Epson-Drucker Kasset- 
te 16,50 DM, Diskette 

23.50 DM, Bestell-Nr C 81 

Projekt/Datenbank, Kasset- 
te 16- DM, Diskette 23,50 
DM, Bestell-Nr C 91 

Spiders/The Basic, Kasset- 
te 16,50 DM, Diskette 

23,50 DM, Bestell-Nr 
C 101 


Apple II, Wilder Westen/Ka- 
rambolage/Maskengenera- 
tor, Diskette 19,50 DM, Be- 
stell-Nr A 41 

Music-Maker/Mission: Ad- 
ler/Disk-Kata-log, Diskette 

19,50 DM, Bestell-Nr A 51 

Snake/Super Datei/Shape- 
tables, Diskette 19,50 DM, 
Bestell-Nr A 61 

Library/Fight, Diskette 

19,50 DM, Bestell-Nr A 71 

Reversal/Disk-Menue-Ge- 
nerator, Diskette 19,50 DM, 
Bestell-Nr A 81 

Diamonds/Hilfsprogramm, 
Diskette 19,50 DM, Bestell- 
Nr A 91 

Tic-Tac-Toe/Jumper, Dis- 
kette 19,50 DM, Bestell-Nr 
A 101 

Donovan/Basic-Konverter, 
Diskette 19,50 DM, Bestell- 
Nr A 121 

Funktionstasten/Painter/ 
Bowling, Diskette 19,50 
DM, Bestell-Nr A 22 

Thunder/Castle of Doom, 
Diskette 19,50 DM, Bestell- 
Nr A 32 


TI-99, Drei-Kronen-Spiel/ 
Zahlenputzen, Kassette 

8.50 DM, Bestell-Nr T 41 

Karl der Käfer/Alien-Lan- 
ding, Kassette 14,50 DM, 
Bestell-Nr T 51 

Jack the Digger I/Noah 
2099, Kassette 14.50 DM, 
Bestell-Nr T 61 

Lift Bär/ASC II DEF Teil 1, 
Kassette 14,- DM, Bestell- 
Nr T 71 

Maya/ASC II DEF Teil 2, 
Kassette 14,50 DM, Be- 
stell-Nr T 81 

ASC II DEF Teil 1 + 2, Dis- 
kette 19,50 DM, Bestell-Nr 
T 881 

Transfer/Silverspar, Kas- 
sette 14,50 DM, Diskette 

19.50 DM, Bestell-Nr T 91 


Frogger, Kassette 16,- DM, 
Bestell-Nr S 121 

Jump, Kassette 14,50 DM, 
Bestell-Nr S 22 

Jet Set Freddie, Kassette 
8,- DM, Bestell-Nr S 32. 


ZX-81, Go-Ball/Grand-Prix, 
Kassette 10,- DM, Bestell- 
Nr Z 51 

Moon-Crash/ZX-Draw, Dis- 
kette 10,- DM, Bestell-Nr 
Z 61 

Tonprogramm/Aldebaran, 
Kassette 10,- DM, Bestell- 
Nr Z 71 

Reversi, Kassette 10- DM, 
Bestell-Nr, Z 91 

Panik Labyrinth, Kassette 
10 - DM, Bestell-Nr Z 101 

Expedition, Kassette 10,— 
DM, Bestell-Nr. Z 121 

Spinnen, Kassette 14,50 
DM, Bestell-Nr Z 22 

Spukhaus, Kassette 14 50 
DM, Bestell-Nr Z 32 


High Noon/Skeet/Grafik-De 
signer, Kassette 17,50 DM 
Diskette 23,50 DM, Bestell- 
Nr. C 121 


Dragon 32, Blizzard, Kasset 
te 8,- DM, Bestell-Nr D41 

Space-Flight/Geosoft, Kas- 
sette 10,- DM, Bestell-Nr 
D 51 


Mother Duck/Screen Desi 
gner, Kassette 14,50 DM 
Diskette 19,50 DM, Bestell- 
Nr T 101 


Painter/Star-Baddle/Editor, 
Kassette 17,50 DM, Disket 
te 23,50 DM. Bestell-Nr 

C 22 


CPU 64 


7/85 




CPU-SOFTWARE-SERVICE 


Commodore 64, Multi-Key/S- 
Tool 64/Interrupt-Programme, 
Kassette 16,- DM, Diskette 
21,- DM, Bestell-Nr UC 2/85 

Spritehilfe/Diskloader/Direc- 
tory, Diskette 21,— DM, Be- 
stell-Nr UC 3/85 

T ape-Directory/Asmon/Data- 
Generator, Kassette 15,— 
DM, Diskette 21- DM, Be- 
stell-Nr UC 3 85 

Fast-Load, Kassette 10.— 
DM, Bestell-Nr UC 4 85 

Diskmonitor/Zeichensatz, 
Diskette 20,- DM Bestell-Nr 
UC 5 85 

Reassembler/Maskengenera- 
tor, Kassette 15 - DM, Dis- 
kette 20,- DM, Bestell-Nr UC 
6 85 

Del 64/Treiberprogramm für 
1526/MPS 802 Decelerator, 
Kassette 14,- DM Diskette 
19,- DM, Bestell-Nr UC 7/85 


Schneider CPC-464, Autoren 
nen, Kassette 11 - DM, Be- 
stell-Nr US 3/85 

Umversal-Datei VI, Kassette 
9 - DM, Bestell-Nr US 4 85 

Computerschrift/Symbol- 
Swap, Kassette 10,— DM, Be- 
stell-Nr US 5/85 


Keyboard Toolkit/Farbdeko- 
dierung, Kassette 11,— DM, 
Bestell-Nr US 6/1/85 
Aladm, Kassette 9,- DM, Be- 
stell-Nr. US 6/2/85 
Pamter/ Box-Befehl, Kassette 
14,- DM, Diskette 24,- DM, 
Bestell-Nr US 7/85 


VC-20, Sprites/Space-Battle, 
Kassette 13,- DM, Diskette 
19,- DM, Bestell-Nr UV 2/85 

Grafik-Painter Kassette 10,— 
DM, Bestell-Nr UV 5/85 

Vic-Clock. Kassette 9,- DM, 
Bestell-Nr UV 6/85. 

Decelerator, Kassette 9,- DM, 
Bestell-Nr UV 7/85 


Apple, Asteroids, Diskette 
18,- DM. Bestell-Nr UA 2/85 

Dateiverwaltung, Diskette 
18,- DM, Bestell-Nr. UA 3/85, 

Digiter/'Reset-Saver, Diskette 
18- DM, Bestell-Nr. UA 4/85. 

Assambler-Momtor, Diskette 
17,- DM, Bestell-Nr. UA 5/85. 

Disk Check IC/Dos Change, 
Diskette 18,- DM, Bestell-Nr 
UA 6'85 

Hello, Diskette 17,- DM, Be- 
stell-Nr. UA 7/85. 


ZX-81, The Castle of Question- 
mark, Kassette 10,- DM, Be- 
stell-Nr. UX 2/1/85. 


TI-99, Olympics, Kassette 1 1 ,- 
DM. Bestell-Nr UT 2/2/85 

Funktionsanalyse/Hardcopy 
Kassette 1 1 ,- DM, Bestell-Nr 
UT 3/85 

Invaded by the Empire, Kas- 
sette 1 1 ,- DM, Bestell-Nr. UT 
4/85 

Multicolor/Load-Programm, 
Kassette 14,- DM, Diskette 
19,- DM, Bestell-Nr UT 6/85 

Disassembler, Diskette 19,— 
DM. Bestell-Nr UT 7/85 


ZX-Spectrum, Panik Sam Co 
lour Change/Clock, Kassette 
13,- DM. Bestell-Nr UZ 2/85 

MC-Routinen/Data-Base/Pi- 
xel, Kassette 11- DM, Be- 
stell-Nr. UZ 3/85 

Reversi/UDG-Editor, Kassette 
15 - DM, Bestell-Nr UZ 4/85 

Star-Basic, Kassette 13,— 
DM, Bestell-Nr. UZ 5/85 

Fill-Programm/Copy it, Kas- 
sette 14 - DM, Bestell-Nr UZ 
6/85 

Quassi, Kassette 13,- DM. Be- 
stell-Nr. UZ 7/85 


Atari, Mauerflucht/Lunar-Sirmu- 
lation, Kassette 13,- DM, Dis- 
kette 19,- DM, Bestell-Nr 
Ul 2 85 


Ram-Tester/Cherry-Harry, 
Kassette 13,- DM, Diskette 
19,- DM, Bestell-Nr Ul 3/85 

Crazy Egon, Kassette 13,— 
DM, Bestell-Nr Ul'85 

Monitorprogramm, Kassette 
11,- DM, Bestell-Nr Ul 6/85 

Zeicheneditor, Diskette 19,— 
DM, Bestell-Nr Ul 7/85 


MSX, Zeichensatzkonverter, 
Kassette 10,- DM, Bestell-Nr. 
UM 3/85 

Zirkus. Kassette 13,- DM, Be- 
stell-Nr UM 5 85 

Pipeline. Kassette 13 - DM, 
Bestell-Nr UM 4/85. 

Alien Attack, Kassette 13,— 
DM, Bestell-Nr. UM 7/85. 


Bestellung per Telefon: 

Wenn es schnell gehen 
soll ... rufen Sie uns an. Wir 
nehmen Ihre Bestellung 
gern entgegen. 

Tel.-Nr. 0 5651 /40693 
oder 0 56 51 / 4 06 43 

Tronic- Verlag 
Postfach 41 
3444 W ehretal 1 


X 


CPU Bestellkarte-Softwareservice 

Alle im Heft abgedruckten Programme können als zusätzlicher Service über den Verlag bezogen werden. 

(Ausland nur gegen Vorkasse) 

Die Zustellung erfolgt: gegen Vorkasse □ 

oder Inland per Nachnahme □ 

+ Versandkosten 

innerhalb von 1 Woche 


Entnehmen Sie bitte aus unseren Preislisten die notwendigen Angaben für Ihre Bestellung: 

Bitte liefern Sie mir: 

□ Cassette für 

□ Anzahl 

Ssstem 

□ Diskette für 

□ Anzahl 

S> stem 

zum Preis von gesamt 

DM 

Name/Vorname 

Straße. Nr 

PLZ/On 

Datum, Unterschrift 
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„Decelerator 64/20“: 
UTILITY für den C-64 / YC-20 

Die Anwendungsmögliehkeiten von Decelerator 64 / 20 : 


Alle Computerfreaks, die 
schon einmal mit der Sprache 
Latein konfrontiert wurden, 
werden beim Lesen des Titels 
schon den Zweck des Pro- 
grammes erkennen und mit 
froher Erwartung sofort den 
Commodore starten und das 
Programm eintippen. Für 
den Rest der Leser sei gesagt, 
daß man mit Decelerator die 
Exekution von jeglichen Be- 
triebssystemroutinen. jegli- 
chen Basicprogrammen b/w. 
Complicaten von z. B. Pet- 
speed. Austrocompiler und 
vielen Maschinencodepro- 
grammen beliebig verlangsa- 
men kann. Weiterhin kann 
man diese Programme an je- 
dem beliebigen Punkt anhal- 
ten und später genau an die- 
ser Stelle mit dem Programm 
fortfahren. Dies gilt auch Pur 
Programme, bei denen die 
RUN/STOP-Taste abge- 
schaltet ist. 

So kann man endlich die sehr 
schnellen Arcadegames mei- 
stern oder der Versuch, den 
Ultimate-High-Score zu er- 
langen, scheitert nicht am 
Schellen des Telefons. Aber 
auch für andere Anwender 
bietet Decelerator neue Per- 
spektiven. z. B. kann man mit 
der Hilfe von Decelerator die 
Programme endlich mit einer 
sinnvollen Geschwindigkeit 
auf dem Bildschirm listen, so 
daß die Fehler nicht w ie sonst 
schon vor ihrer Entdeckung 
weggescrollt sind. Der hämi- 
sche can’t contiue Error ist 
vergessen, da das Programm 
nun immer wieder gestoppt 
und gestartet werden kann. 
Selbst für den Maschinen- 
sprachecrack bietet Decelera- 
tor ungeahnte Möglichkeiten, 
endlich kann er die einzelnen 
Stufen der viel bewunderten 
Sprite-Animation erkennen 
oder ohne langes Hacken den 
Frequenzgang der Spitzen- 
soundeffekts erkennen. 

Ein weiterer Pluspunkt von 
Decelerator ist die Compati- 


bilität mit wichtigen Utilities 
wie Fastloadern. Turbo- 
Tape. Turbo II, Speed-Load. 
Diese Utilities laufen ohne 
Schwierigkeiten. Externe-Re- 
sets übersteht Decelerator 
auch, so daß ein ständiges 
Reloading entfällt. 

Wie funktioniert jetzt 
eigentlich Decelerator? 

Decelerator verlängert ein- 
fach die Bearbeitungszeit der 
Interrupts, indem er. bevor er 
zur Interrupt-Betriebssy- 

stemroutine springt, einfach 
eine Warteschleife durch- 
läuft. Die Länge der Bearbei- 
tungszeit der Schleife kann 
durch Druck der „+"- und der 
„-"-Taste verändert werden. 
„+" für ein schnelleres Tempo 
und für ein langsameres. 

Die Funktion von Decelera- 
tor setzt also den Aufruf der 
Hardware-Interruptroutine 
voraus. Leider gibt cs aber 
den Maschinensprachbefehl 
SEI (Set Interrupt disable Sta- 
tus). der jegliche Interrupts 
abschaltet, somit auch Dece- 
lerator außer Gefecht setzt. 
Aber keine Angst, so leicht 
gibt sich Decelerator noch 
nicht geschlagen. Es ist näm- 
lich ein Befehl zum Wieder- 
einschalten der Interrupts 
implementiert. Der einmalige 
Druck der Restore-Taste (bit- 
te ohne Run Stop) genügt. 
Decelerator macht sich hier- 
bei die Non Maskable Inter- 
rupts zunutze, die bei C'-64 / 
VC-20 z. B. durch die Resto- 
re-Taste ausgclöst werden 
können. Diese Interrupts sind 
softwaremäßig nicht aus- 
schaltbar. Bei einem NMI 
springt der Prozessor zu einer 
Routine, die ihm durch die 
Vektoren SFFFA und SFFFB 
angegeben wird. Diese NMI- 
Routine muß also nur so ver- 
ändert werden, daß sie das 
vor dem Interruptansprung 
auf den Stapel gesicherte Sta- 
tusregister zurückholt, einen 
CLI (Clear Interrupt disable 


j bit) durchführt und darauf | 
das Statusregister auf den 
Stapel wieder zurücklegt. 
Decelerator verfügt zuzüglich | 
noch über eine extra Stop-Ta- I 
ste. Es handelt sich dabei um 
die „£"-Taste. Diese Taste 
veranlaßt, daß der Computer J 
i nicht mehr aus dem Interrupt 1 
zurückkommt, sondern eine j 
Schleife durchläuft. Diese 
Schleife kann nur durch den j 
j NMI unterbrochen werden. ! 
der eine Rag setzt, die den 
normalen Interrupt veran- 
laßt. die Schleife zu verlassen. 
Zur Fortsetzung des Pro- ! 
gramms muß deshalb wieder 
die Restore-Taste gedrückt 
werden. Falls die Tastatur da- 
nach blockiert sein sollte, 
hilft das Motto: „2 mal hilft 
besser. - Siehe da. alles wie- 
der beim alten." 

Die versionsspezifischen 
Merkmale von Decelerator: 

Es ist wohl jedem klar, daß I 
wegen des unterschiedlichen j 
Aufbaues von VC-20 und C- 
64 gewisse Veränderungen 
bei der Realisierung des Pro- 
grammziels vorgenommen 
werden mußten. Der C-64 
bietet z. B. die Möglichkeit, 
das Betriebssystem ins Ram 
zu verlegen, deshalb ist Dece- 
lerator 64 auch wesentlich 
complexer geworden und die 
C-64-Bcsitzer dürfen fast 
doppelt so viele der verhaß- 
ten Datas eingegeben. Ich war 
trotzdem bestrebt, das Pro- 
gramm so kurz wie möglich 
zu halten, um den Eingabe- 
frust auf ein Minimum zu 
verkürzen. Deshalb sei auch 
gesagt, daß Rams weggelas- 
sen und Prints selbstver- 
ständlich verkürzt werden 
können. Decelerator verfügt 
über eine Data-C'heck- 
Funktion, die auf Data-Er- 
rors aufmerksam macht. 
Trotzdem ist es ratsam, das 
Programm vor dem RUN- 
Befehl abzusaven. da sonst 
evtl, das ganze Tippen um- 
sonst war. 


Decelerator 64: 

Die Initialisierungsroutinc 
kopiert zuerst das Rom ins 
Ram, schaltet dann das Rom 
aus und verändert das Be- 
triebssystem so, daß die In- 
terrupt- und die NMI-Routi- 
ne von Decelerator mit aus- 
geführt werden und außer- 
dem beim NMI nicht wie 
sonst zum Modulstart ge- 
sprungen wird. Decelerator 
kann nur durch den Poke 
1.55. der w ieder das Rom ein- 
schaltet, oder durch ein 
Überschrciben seiner Routi- 
nen ausgeschallet werden. 
Man kann also davon ausge- 
hen. daß die Programme, die 
mit Decelerator imcompati- 
bel sind, zur Programmsiche- 
rung solche Befehle enthal- 
ten. Den potentiellen Hak- 
kern unter den Lesern sollte 
es also nicht schwerfallen, 
zum Erlangen einer Compati- 
bilität diese Befehle mit Hilfe 
des Diskmonitors durch 
NOPs zu ersetzen. 

Nach einem erfolgreichen 
Reset kann man Decelerator 
64 übrigens mit Poke 1,53 
wieder einschalten. 

Als letzter Tip sei gesagt, daß 
man beim Loading immer 
die normale Betriebssystem- 
geschwind igkeit verwenden 
sollte, da es sonst zu LOAD 
ERRORs kommen kann. 
Dies wird durch Druck der 
„+“-Taste erreicht, den man 
fortsetzen muß. bis der Cur- 
sor etwa wieder mit normaler 
Geschwindigkeit blinkt. 

Die Compatibilität von 
Decelerator 64: 

Zum Leid der C-64- Besitzer 
sei gesagt, daß Decelerator 20 
eine weit höhere Compatibi- 
litätsquote hat, als die C-64- 
Version. Dies erklärt sich 
daraus, daß die Professionals 
es inzwischen besser gelernt 
haben, ihre Programme zu si- 
chern. und dazu auch sehr 
viel mehr Speicher auf dem 
C-64 zur Verfügung steht. 
Trotzdem läßt sich die Liste 
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der compatiblen Programme 
sehen. Sie ist bei weitem 
nicht vollständig, da nur ein 
Bruchteil der auf dem Markt 
befindlichen Programme ge- 
testet wurde. Es sei darauf 


hingewiesen, daß einige Pro- 
gramme der Liste möglicher- 
weise bei verschiedenen Le- 
sern incompatibel sind, da 
die Firmen ihre Programme 
manchmal im Nachhinein 


10 REM 

11 KEN 

12 REM 
12 REM 

15 REM 

16 REM 
1? REM 

18 REM 

19 REM 

20 REM 
25 REM 
2 7 REM 
30 REM 


* * 

* DECtLEKHTÜR 64 * 

* * 
************************ 


mit verbesserten Sicherungen 
dupliziert haben. 

Compatibel sind: 

Hunchback, Scramble. B.C.'s 
Quest for Tires, Attack of the 
Mutant Camels. Matrix. Vor- 
tex Raider. Gridrunner. La- 


ser-Strike. Mangrove. Tnad 
64. Puckman, Pucman. Pe- 
destrian, Hyper-Hen, Don- 
key Kong II. Pacacuda, Hex- 
pert, Crossfire, Gallaga, Trax. 
Helicommand. Burger- 
Crash. Jet Pac, Chaser etc. 


* 

* 

* 

* 

* 

♦ 

* 


(.O 1985 


BY 

EBERHARD AUST 


* 

* 

* 

* 

* 

* 

* 


DH I A E I NLESEbCHLE I FE 1 


************ 4 ****)^^*** 

70 RR INT 

80 PRINT" DECELERfiTÜR 64 iC) 1984 BY E. RUST 
85 PRINT" 

90 REM 

91 REM 

92 REM 

100 FÜRR=0TÜ101 RERDB ; PRF=PRF +B : PGKEA+6000 , B : NEXT 

158 I F PRF <> 1 3349 T HENPR I NT " MDRT R ERROR IN VORBEREITUNGSROUTINE" : END 

190 REM 

191 REM DRTR EINLESESCHLEIFE 2 

192 REM 

200 FÜRH=0 10122 kERdB : HRF=RRF+ ß PÜk.EA+53063 , B ; NEXT 

250 1 F RRF 0 1 6055THENPR 1 NT 11 UDRT R ERROR IN HRUF’TROUTINE" : END 

300 PRINT"«« DRTRS OKflYMB" 

305 REM 

306 REM S IRRT EN DER VORDER. ROUT INE 

307 REM 
310 SYS6000 

315 PRINT" — ' "I 

31? PRINT 

320 PRINT "SCHALTEN SIE NUN DECELERRTOR DURCH BRUCKVON RUN/STOP UND RESTORE EIN" 


323 PRINT 

325 PRINT' "i 

330 GOTO330 

1000 REM 

1001 REM VORBEREITUNGSROUTINE 

1002 REM 

1010 DRTA160, 160, 162, 0, 140, 124,23, 140, 127,23, 189,0, 191, 157,0, 191,232,224,0 
1020 DAT A240, 3, 76, 122,23, 200, 192, 192,240,3, 76, 116,23, 160, 224, 162,0, 140, 156,23 
1030 DRTA140, 159, 23, 189, 0, 225, 157, 0, 225, 232, 224, 0, 240, 3, 76, 154, 23 
1040 DRTR200, 192,0,240, 3,76, 148, 23, 169,229, 141,214,253, 169,76, 141 , 68,254, 169 
1050 DRTR71 , 141,69,254, 169,207, 141,70,254, 169,234, 141,91,254, 141,92,254, 141 
1060 DRTR93, 254, 120, lb9, 53, 133, 1 , 88, 96 

2000 REM 

2001 REM HAUPT ROUTINE 

2002 REM 

2010 DRTR 169, 46, 133,255,40,88,8, 120, 169,76, 141,49,234, 169,53, 141, 1,0, 169 
2020 DRTR 108, 141,50,234, 169,207, 141,51,234,76,71,254,0,0,0,0,0,0 
2030 DRTR 169, 255, 141,2,220, 165, 197,201,40,208, 10,174, 160,207,224,0,240,3 
2040 DRIH206, 160,207,201,43,208, 10, 174, 160,207,224,255,240,3,238, 160,207 
2050 ÜRTA20 1,48, 208, 10, 165,255,201,46,240,3,76, 147,207,234, 162,0,224,0,208 
2060 DA TA3, 76, 184, 207, 160, 0, 200, 192,40, 240, 3, 76, 168, 207 , 232, 76, 159, 207 
2070 DR TR0, 0, 0, 234, 169,0, 133, 255,32,234,255,76,52,234 
3000 REM 

3010 REM ENDLICH GESCHAFFT ! ! ! ! 

3020 REM 
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Decelerator 20: 

Decelerator 20 läuft auf dem 
VC 20 mit einer 8K- oder 
einer 16K-Ram-Extension. 
Er bietet die Möglichkeit, 
Programme, die für die 
Grundversion (3.5K. Ram) 
oder für den mit 8K Ram er- 
weiterten Computer geschrie- 
ben sind, auszuführen. Die 
Grundversion wird initiali- 
siert, wenn die Frage, ob die 


Speichererweiterung ausge- 
schaltet werden soll, mit ,J“ 
beantwortet wird. 

Da eine Modifikation des Be- 
triebssystems auf dem VC-20 
wegen des Ram-Mangels 
nicht möglich ist, werden die 
Routinen von Decelerator 
durch Veränderung des 
Hardware-Interrupt- Vektors 
($314-5315) und des NMI- 


10 

15 

20 

22 

25 

27 

30 

3-3 

35 


REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 


*************** 
♦ * 

*LECELERRTüR20* 


c.C; 1385 


BY 


* 
* 
* 
* 
* 

♦EBERHARD RUST* 

* * 
*************** 


Vektors ($3 1 8— $3 1 9) aufge- 
rufen. Diese werden aller- 
dings nach dem Druck von 
RUN/STOP + RESTORE 
wieder auf ihre normalen 
Werte gesetzt, so daß Decele- 
rator durch Eingabe von SYS 
1 53 10 neu initialisiert werden 
muß. Auch nach externen 
Resets kann Decelerator 
durch diesen SYS neu gestar- 
tet werden. 

Bitte beachten Sie auch bei 
Decelerator 20, daß beim 
LOADING möglichst Nor- 
maltempo gewählt werden 
sollte. 

Die Compatibilität von 
Decelerator 20: 

Hier verliefen alle 3.5K- 
Ram-Tests positiv. Getestet 
wurden z. B. Mad-Painter, 


40 

fc0 PR1NT":>-- 
PRINT" 

100 REM 

101 REM EINLESESCHLEIFE 

102 REM 


<C) 1385 E. RUST 


DECELERRT0R 20fl" 


-flBlÖflKÖS" 


1 1 0 F ÜRh=0T 0 1 1 1 : RERDB : PÜKE 1 5300+R , E PRF=PRF+B NEXT 

140 REM 

141 REM BR TAS PRUEFEN 

142 REM 


Frogger. Earth Defense, Hell 
Driver, Exterminator, 

Scramble. Fire, Bounce-Out, 
Pacer, Pit, Blockade etc. Die- 
se Liste könnte beliebig 
fortgesetzt werden. 

Die meisten Programme mit 
8K-Ram-Extension laufen 
ebenfalls, nur solche, die ab- 
solut das ganze Ram füllen, 
überschreiben die Routinen, 
von Decelerator. Für 16- 
Ram-Extcnsion-only- Pro- 
gramme kann eine Compati- 
bilität durch Zurückversetzen 
von Decelerator um 8K er- 
reicht werden. Für jeden, der 
Maschinensprachkenntnisse 
besitzt, sollte dies kein Pro- 
blem sein, da nur die Adres- 
sen um 32 Pages erhöht wer- 
den müssen. 


150 I FPRFO 12132 THENPR INT" ÄDR TR" : PR INT "ERROR" : END 

180 REM 

181 REM BECELR. STRRTEN 

182 REM 

130 SYS 153 10 

200 PRINT" DRTRS O.K. M " 

210 PR INT "DECELERATOR IN ACT ION" 

220 PRINT" fl" 

222 REM 

223 REM 8/16 K RRMEXT. 

224 REM AUSSCHALTER 

225 REM 

230 PRINT "RRMEXT. AUS U) ", 

240 INPUT A* 

250 I FR$= " J " THENP0KE64 1,0- PÜKE642 ,16: P0KE643 , 0 •’ P0KE644 , 39 : P0KE648 , 39 = S YS64824 

1000 REM 

1001 REM NM1 ROUTINE + 

1902 REM VÜRBRTS. ROUT. 

1003 REM 

1010 DATA 163, 46, 133,255,40,88,8,76, 173,254, 120, 163,241, 141,20,3, 163,53, 141,21,3, 
163 

1020 DATA196, 141,24,3, 163,53, 141,25,3,36 

2009 REM 

2001 REM HAUPTROUTINE 

2002 REM 

2010 LATA 169, 0, 133,255,76, 191,234,0,0,0,0,0,0, 165, 197,201,5,208, 10, 174,32,60,224 
, 0 

2920 DRTR240, 3, 206, 32,60,201,61, 208, 10, 174,32,60,224,255,240,3,238,32,60,201,6 
2039 DATA208, 10, 165, 255, 291 , 46, 249, 3, 76, 19,60,234, 162,9,224,0,208,3,76,228,59, 16 
9, 9 


2040 LAT A200 ,192,50, 240 , 3 , 76 , 40,60, 232 ,76,31,60 
2950 REM 

2060 REM GESCHAFFT ! ! ! 

2079 REM 


CPU 68 


7/85 



CPU-Markt 


LaserWriter von Apple 


LaserWriter heißt das neue 
Flaggschiff unter den Apple- 
Peripherie-Geräten. das sich 
mit seinen multifunktionalen 
Leistungsmerkmalen deut- 
lich aus der allgemeinen 
Druckerwelt hervorhebt. Ein- 
gebaute Zeichensätze geben 
dem Anwender den Vorteil. 
Zeichen und Grafik in Laser- 
Auflösung zu erhalten und zu 
mischen. Die Qualität 
kommt der von Satzmaschi- 


nen nahe und ergibt sich aus 
der ungewöhnlich hohen 
Auflösung von 300 Punkte/ 
Inch gegenüber 70 Punkte/ 
Inch bei „Normaldruckem. 
Verschiedene Schrifttypen 
bieten die uneingeschränkte 
Möglichkeit, Formulare. Be- 
richte. Geschäftsgrafiken und 
sogar Präsentationsfolien 
selbst zu erstellen. 

Erreicht werden diese viel- 
fältigen Leistungsmerkmale 



1 

Der LaserWriter 

auf einen Blick 

Eingebaute Schnfmpen: 

Helvetica 

Times 

Courier 

Svmbols 

Lascrfähige Software: 

Sämtliche Apple Macintosh- 
Software, Lotus JAZZ. Sämtli- 
che Microsoft-Produkte für 
Macintosh sowie neue Spezial- 
produkte wie: Page Maker von 
Aldus Corp für den Satz und 
die Komposition von Mittei- 
lungsblättern, Prospekte. Da- 
tenblätter. Nahezu alle ande- 
ren Macintosh-Produkte kön- 
nen ohne Modifikation einge- 
setzt werden. 

Grafik-Sprache: 

PostScript von Aldobe Sy- 
stems Inc.. PostScript ist sy- 
stemunabhängig, so daß auch 
ältere PC-Standard über Laser- 
Writer drucken können. 

Netzwerkfähigkeit: 

AppleTalk bereits eingebaut. 

Prozessor: 

Motorola 68000 (12 MHz) mit 
0.5 MB ROM und 1.5 MB 
RAM. 

Druckwerk: 

Canon LBP-CX 10. 

Ausgabemedium: 

Papier. OH-Folie. 

Auflösung: 

300 Punkte pro Inch. 

Wartung: 

Durch autorisierte Apple- | 
Händler mit Macintosh Office- 
Spezialausbildung. Der Toner- 
Austausch kann vom Anwen- 
der selbst vorgenommen wer- 
den. Eine Kartusche für 
2000-3000 Seiten. 

Garantie: 

12 Monate. 

Lieferbar: 

Seit Juni 1985. 

Preis: 

DM 27 500.- (unverbindliche 
Preisempfehlung inklusiv 14% 
MwSt). 


durch einen eingebauten Mi- 
krocomputer mit 68000-Pro- 
zessor. 1.5 MB RAM und 0.5 
MB ROM. 

Ferner benutzt der LaserWri- 
ter PostScript, einen neuen 
Standard für hochauflösende 
Ausgabegeräte. Damit ist der 
LaserWriter kompatibel zu 
Satzmaschinen wie z. B. Li- 
notype. 

Kostengünstig wirkt sich die 
eingebaute Apple-Talk- 
Schnittstelle aus. Über App- 
leTalk können 31 Macintosh 
zusammen den LaserWriter 
benutzen. 

Auf dem LaserWriter können 
auch IBM-PC und Kompati- 
ble drucken. Dieser Drucker 
besitzt eine eingebaute Dia- 
blo 630-Emulation. Ein PC 
kann über eine RS 232- 
Schnittstelle direkt an den 
LaserWriter angeschlossen 


werden. Der LaserWriter 
wird dann statt einem Dia- 
blo-Typenraddrucker ver- 
wendet. Diablo 630 ist eines 
der meist benutzten Pro- 
tokolle. Eine weitere An- 
schlußmöglichkeit ist über 
die PC-Karte von Apple ge- 
geben. Damit kann der PC 
über AppleTalk auf dem La- 
serWriter drucken. Dabei 
wird wieder über das im La- 
serWriter eingebaute Diablo 
630-Protokoll gedruckt. Die 
limitierten Grafikmöglich- 
keitcn des IBM-PCs sind da- 
mit allerdings nicht auszu- 
gleichen. 

Die Apple-Macintosh-Soft- 
ware ist mit dem LaserWriter 
kompatibel, so daß z. B. pro- 
fessionelle Softwarepakete 
wie JAZZ von Lotus oder die 
Software-Serien von Micro- 
soft genutzt werden können. 



Die Antwort auf diese Frage 
finden Sie auf Seite 64 und 
Seite 65! 
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Sonderpreis/ CPU-Kleinanzeigen jetzt zum Sonderpreis/ 


Verkaufe Originalprogramme 

oder tausche gegen andere 
Originale ein 1 Deus ex machi- 
na 33, Tir na nog 22, Valhalla 
22, Pimama 13, Jet Set Willy 
12, King Arthur s Quest 19, 
Pl-Eyed 9, Pl-Inre 9, Piromama 
9, New Wheels John 9 7, 
GOTO JAIL 6, Pl-Balled 6, 
Backgammon 6, Psion Chess 
6, Chess (Artic) 9, Flight Si 
mulation 6, + 1 DM für Porto 
u Verpackung Georg Schei- 
be, Hebeckenkamp 9, 4355 
Waltrop, Tel 0 23 09 
7 46 19 


Verkaufe Atari-Recorder Tel 
0 21 52 / 51 02 43 


Verk. TI99/4A + Ex Basic + 
Cass R + Kabel + Mod Espi- 
al 4- J -Adapter + 55 Progr 
auf 4 Cass DM 730,-, auch 
einzeln Tel 07 11 / 53 96 12 


Verkaufe TI-Soft-/Hardware 
u. Bücher!! Es lohnt sich! In 
fos gegen -,60 DM in Brief- 
marken bei Ralf Derissen, Jo- 
sef-Lambertz-Str 21, 5120 
Herzogenrath 


NDR-Klein-Computer, 10 Pia 

tinen, funktioniert, aus Zeit- 
mangel zu verk., Neupreis 
inkl Monitor 1800,-, VB 
900,-. R Niedermeier, Tel 
0 80 67 / 6 95 


Wegen Hobbyaufgabe abzu 
geben 30 Lehr- und Übungs- 
programme auf Cassette in 
Basicode-2 für nur DM 85,- 
(Vorkasse) Johann Fedder- 
mann, Postfach 10 21 02, 
2000 Hamburg 1 

Massenweise Niedrigpreise! 

Für C-64. VC 20. C-16 ATA- 
RI. SPECTRUM. SCHNEIDER 
+ ZAXXON, BLUE MAX. 
GHOSTBUST ab 35,-; FL 
SIM II 136,-; Info für 1,50 (in 
BM) von H Topf, Softw & 
Serv , Alfred-Bucherer-Str 
63, 5300 Bonn 1 Tel 02 28 / 
62 13 92 


Anwenderprogramme für die 

Top-Computer Schneider 
CPC und ZX-Spectrum Gra- 
tisinfo anfordern bei Friedrich 
Neuper, 8473 Pfreimd, Post- 
fach 72 Bitte Computertyp 
angeben 1 


Tausche VC-64 Spitzenpro- 
gramme Tauschlisten an: 
Jürgen Hödl, Muggenthaler 
Str 10, 8391 Tittling 


TI ★ Rex Soft ★ Superpro- 
gramme! ★ Wir bieten stän- 
dig neue Programme zu ech 
ten Preishits!!! Großes Pro- 
grammangebot* 1 Info 1 ,- DM 
bei Daniel Peier, Hulfteggstr 
31, CH-8400 Winterthur 


TI99/4A Ext.-Spiel nur für Er- 
wachsene, Alter ang , zum 
Preishit von nur DM 10,- inkl 
Porto Kass u Infoprogr in 
Umschlag an T Karbach, 
Remscheider Str 18, 5650 
Solingen 1 


TI99/4A Ext. Jetzt können Sie 
Ihren Taschenrechner ver- 
gessen Komfort menüge 
steuertes Progr mit 14 Re- 
chenarten nur DM 10,-. In 
Umschlag an D Karbach, 
Remscheider Str 18, 5650 
Solingen 1 


• • • TI99/4A • • • 

Drucke Ihre Listings, egal wie 
lang, auf Seikosha GP 100 A 
Kass. + DM 1 0,- in Umschlag 
an D Karbach, Remscheider 
Str 18, 5650 Solingen 1 


TI99/4A: Extended-Basic, P 
Box, Disk-Drive, Disk-Control- 
ler, Console, 32k-Ram, kpl 
VB 1800,- DM Außerdem: 
Datenverw. /Analyse, Text- u 
Dateiverw , Tl-Writer Helmut 
Zindel, Tel 0 41 94 / 75 64 


TI99/4A Hardware u Soft Su- 
che Peripherie-Box A Mlo- 
doch, Postf 1527, 4352 Her- 
ten 


TI 99: Alpiner/Car Wars/ 
Tombstone City/Ti-Invaders/ 
Joysticks gegen Gebot T 
09 11/51 27 93 


TI99/4A: TI und Ex-Basic-Pro- 
gramme zu verk , Info g 
Rückporto, B Knedel, Tul- 
pengasse 16, 3171 Weyhau- 
sen, Tel 0 53 62 / 7 1 1 87 

ZX 81 + 16 KRAM + Netzteil, 

5 Bücher + 6 Original-Spiele 
+ 4 Softwarecassetten für 
DM 240,- abzugeben Andre- 
as Ipolt, Landeckstr 3, 6748 
Bergzabern, Tel 0 63 43 - 
43 48 


Suche käuflich Zeitschrift Ho- 
mecomputer 3/83 und 1-7 84 
außerdem CPU 1-684 + 
8/84, Listings müssen lesbar 
sein. 


Suche Peri-Box für TI, mög- 
lichst voll ausgestattet Ha- 
ken hierbei; zahle gut. aber in 
Raten! Chiffre: Tl-B 


Suche C 64, gut erhalten, zah- 
le bis 400,- DM oder Tausch 
gegen VC-20 + 6 KK + Su- 
perprogramme A Dinsch, 
Berliner Str 17, 5980 Wer- 
dohl. 


Spectrum. Unser Club Wup 
pertal nimmt wieder Mitglie- 
der auf 1 Neues Konzept 1 Für 
alle ZX-Freaks ein muß! Info 
gg Rückporto R Knorre, 
Postf 20 01 02, 5600 Wup- 
pertal 2 


ZX-Spectrum. Software 
Tausch, schickt Eure Liste an 
Anton Meismger, Ungargasse 
11, A-7350 Oberpullendorf, 
Austria 


Statistik und System-Lotto 
für Spectrum 48K. Viele sta- 
tistische Werte u autom 
Übernahme ins System. 26(!) 
Auswahlkriterien Mutlu, Ei- 
chenstr 4, 6790 Landstuhl 


ZX-Spectrum: Tape-Kopierer, 
kopiert fast alle Programme 
am Markt Zeigt auch Header- 
Daten 15,- DM / 99,- öS, W 
Hübl, Klitschg 18, A-1130 
Wien 


★ Spectrum-Programme- 
Tausch ★ Über 100 versch 
Programme. Kein Rückporto 
erf. Liste an Detlef Thee, 
Schwartauer Allee 35, 2400 
Lübeck 1, Tel 04 51 / 

47 49 30 ab 19 Uhr 


ZX Spektrum 48K, ZX Printer, 

Software, Joystick zu verk , 
Preis 500,- DM komplett J 
Schneider, Flurstr 7, 6581 
Dickesbach, Tel 0 67 84 / 
89 42 


VC 20. Suche 40/80 Karte und 
schaltbare Modulbox (billig 1 ). 
Suche gute Programme (aller 
Art) Angebote nur schriftlich 
an Bernhard Helle, Schüt- 
zenstr 11, 4100 Duisburg 14 


Hallo VC-20-Freaks! Wer hat 

Interesse in einem Club mitzu- 
machen 9 Der CVC hat 13 Mit- 
glieder und neue sind herzlich 
willkommen! Außerdem gibt s 
eine Clubzeitschrift. CVC c/o 
Dirk Weißenborn, Falkenweg 
66, 7400 Tübingen 


Neu - das Mallbox-Telefon- 
buch-Rufnummer-Ver- 
zeichnis der DFÜ-Anbieter 

emschl Datex p mit monatl. 
Nachtrag (1 Jahr) zu bezie- 
hen für 8,50 DM Tel. (04 21) 
56 38 00 oder 56 38 31 


CPC464 ! ! ! Verlängerungs- 
Kabel zwischen Monitor und 
Keyboard mit passenden 
Steckern nur DM 20- an 
Postscheck Hamburg 32572- 
201 oder Schein an H Beh- 
rendt, Marrensberg 2, 2390 
Flensburg 


CPC 464 Printer NLQ401. zu 

verk VB 650- DM, neu, 2 
Mon , und einm. Originalprg., 
wie Rechnungssch , Text., 
Chess u a wegen Aufgabe 
abzugeben Tel. 02 11 
27 47 51 ab 16 Uhr 


CPC 464!! Super-Software: 

Z B 3-D-Fußball oder Night 
Flight nur je DM 20, -ü Text- 
verarbeitung etc alles vom 
COMPI-Club, J Heise, A d 
Linde 8, 5226 Reichshof Info 
gratis! 


CPC464 ! ! ! 12 gute Spielpro 
gramme auf Kassette, keine 
Raubkopien, DM 20,- an 
Postscheck Hamburg 

404576-207 oder Schein im 
Brief an Hans-J Behrendt, 
Neustadt 3, 3550 Marburg 


Der 64 er SOFTWARE-CLUB 
aus Bochum sucht Verbin- 
dungen zu anderen Compu- 
ter-Clubs 

Club-Aktivitäten: Club Tref 
fen, Club-Fahrten, Club-Zei- 
tung „CLUB-NEWS“ und Aus- 
tausch von Programmen 
Unsere Adresse: 

64 er SOFTWARE-CLUB 
Oliver Nürnberg, 
Holtingstraße 16c 
4630 Bochum 1 


Wir suchen Euch!?! 

Alle Computerfreaks die be- 
reit sind, folgende Dienste 
kostenlos in Anspruch zu 
nehmen bzw zu teilen 
Wir bieten: 

1 Softwaretausch 

2 Entwicklung von Hard- u 
Software 

3 Beratung bei Problemen 

4 Reparaturen 

5 Programmierkurse 

6 Erstellung einer Clubzei- 
tung 

Willkommen sind alle Systeme 
Computertypen 
Interessenten wenden sich 
bitte, wenn möglich bitte mit 
Rückporto, an den IC Com- 
puterclub, Beethovenstr 66, 
4815 Schloß Holte-Stuk , Tel. 

0 52 07 / 8 77 00 Jeder Brief 
bzw Anruf wird beantwortet 
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Kleinanzeigen 


Liebe Leser, 

wollen Sie eine Kleinanzeige aufge- 
ben? Suchen Sie einen gebrauchten 
Home-Computer, Software. Hardwa- 
re. Kontakte zu Computer-Clubs etc. 0 

Dann nutzen Sie jetzt den Kleinanzei- 
genservice der „CPL Die „CPU“ ist 
ein kompetentes Anwender-Magazin. 

Sie erreichen durch uns eine Vielzahl 
von Lesern im In- und Ausland. 

I nd so wird's gemacht: 

Kleinanzeigen-Coupon ausfüllen (alle 
Zeilen können ausgelullt werden) und 

einsenden an 

Tronic- Verlag 
Postfach 41 
3444 Wehretal 1 

Also, schnell ausfüllen und einwerfen 
in den nächsten Postkasten. Dann ist 
mit Sicherheit Ihre Kleinanzeige da- 
bei. 


- CPL - 
Basar 


- CPU - 

Basar 


Kleinanzeigen 

Bitte veröffentlichen Sie ab nächstmöglicher Ausgabe unter der Rubrik 
□ SOFTWARE □ HARDWARE □ VERSCHIEDENES 

Mein Computersystem: 


folgenden Text: 



1 LL 

U 

L 





1111 

1 1 1 1 1 II 1 1 1 1 1 1 

_L 

L 

L_L 


1111 



1 



11 

1 


LL 


1 1 1 L 


LJ 

II 1 1 1 1 II JJJ 


11 





i U 



_LJ 

1 1 1 11 1 11 



1111111111 


U 


Bitte jeweils 28 Buchstaben pro Zeile! Bitte Absender nicht vergessen! 


Preis für Kleinanzeigen: 10 DM je Kleinanzeige 

(keine gewerbliche □ per □ Scheck □ Bar 

Nutzung) Vorkasse 


Name/Vorname 


Straß«*. Nr 


PLZ/Ort 


Datum, Unterschritt 


Ich versichere hiermit, 
daß die angebotenen 
Programme/Beiträge Irei von 
Rechten Dritter sind! 


Neue Matrix- 
Drucker 
von OKIDATA 


Die Gewinner unseres Preisrätsels 
aus dem Monat Mai ! 


Die neuen MICROLINES 
ML 192 und ML 193 bieten 
eine hohe, wegoptimierte 
Druckgeschwindigkeit von 
160 Zeichen/Sek. im Ent- 
wurfsdruck-Modus (für den 
schnellen Ausdruck von 
EDV-Listen) und ein gesto- 
chen scharfes Schriftbild im 
Schönschrift-Modus (für Do- 
kumente und Geschäftsbrie- 
fe) mit 33 Zeichen/Sek. (auto- 
matischer Einzelblatteinzug 
als Zubehör). 

Der ML 192 bzw. 193 verfügt 
über viele sinnvolle Sonder- 
funktionen, z. B. Dehnschrift. 
Hoch-/Tiefstellungen, hori- 
zontalen und vertikalen Fett- 
druck, kontinuierliches Un- 


terstreichen. echte Llnterlän- 
gen, 12 nationale Zeichensät- 
ze (inkl. ASCII « 2 ». ASCII 
(0)), IBM-Zeichensätze. 
punktadressierbare Vollgra- 
i fik (bis 288 x 144 Punkte - 
Zoll). 

Die MICROLINES 192 und 
| 193 können verschiedenste 
Papierarten verarbeiten, wo- 
bei der ML 193 durch seine 
größere Wagenbreite an zu- 
sätzlicher Flexibilität gewinnt 
(maximale Papierbreite be- 
trägt 406,4 mm). 

Eine Centronics-parallele 
Schnittstelle gehört zu der 
Standardausrüstung des neu- 
en ML 192 bzw. ML 193. 


1. Preis: 

10 Kassetten aus unserem 

Software-Service 

Michael Nahm. Ochsenfort 

2. Preis: 

3 Kassetten aus unserem 
Software-Service 
Andreas Streng. Coburg 

3. Preis: 

2 Kassetten aus unserem 

Software-Service 

Klaus Paradies, Rheine 

4. -30. Preis: 

H.-G. Hasebrock. Schüttorf 
Bernd Michaelsen, Hamburg 
Michael Burgmaier, Ertingen 
Joachim Böhm, Georgens- 
münd 

E. Vornberger. Randersacker 
Jürgen Gerkens. Hamburg 
Roland Hammelmann, 
Würzburg 


Stefan SielofT. Pullach 
Günter Schmidt. München 
Berthold Prause. Wendeburg 
Gunnar von der Beck. Dillen- 
burg 

Alois Leimüller, Köstendorf 
Alfred Rehberger, Feldheim 
| Wilfried Ganschinietz. Tier- 
! haupten 

Friedrich Tänzer, Wien (Au- 
; stna) 

| Michael Gilles. Singen (Ho- 
j hentwiel) 

Michael Kircher, Bergheim 
Reiner Weidmann, Nürnberg 
Uwe Velker, Rheine 
Reiner Dold, Filderstadt 1 
Markus Eisenmann. Winnen- 
den 

Matthias Marx, Langenhagen 
Karl Müller. Memmingen 
Burkhard Blümke, Kempen 1 
Gilbert Honig, Overath 
Paul Dietseh, Köln 
Jens Schmidt. Bremen 
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Korrektur zur CPU-Ausgabe Nr. 6 
„Disk Check“ für den Apple-Computer 

Aufgrund technischer Probleme mit unserem Drucker sind beim Ausdrucken des 
Listings leider einige Fehler aufgetreten. Hier die Korrektur: 


: 



3LIST 330 

1L IST 

220 


330 

IF ERR = 0 THEN HOME : HTAB 

220 

IF LEN (Ti) = 0 OR VAL ( 
(Ti, 1) ) =0 THEN L = 34 

LEFTi 


15: VTAB 19: INVERSE : PRINT 
"NO ERRORS !": WA IT - 16384 
,128: HOME : GOTO 300 

ILIST 

300 


1LIST 

350 

300 

NORMAL : HT AB 1: VTAB 18: PRINT 
" 1 PRINT BAD SECTORS": PRINT 
: PRINT " RESTART": PRINT 
: PRINT "3 EX IT": PRINT : GET 

Ti : X = ABS ( INT ( VAL (Ti) 

350 

VTAB 19: INVERSE : INFUT "OU 
TF'UT— SLOT (0-7 < DEFAULT 0 

> ) ? " ;Si:S = ABS ( INT ( VAL 
(Si))): IF S > 7 THEN 350 


)): IF X > 3 OR X = 0 THEN 
00 

— y 

1 

8018- 00 03 8D 01 03 85 FF 8D 


Wenn Sie in der Lage sind, auch andere an Ihren Ideen teil- 
haben zu lassen, dann setzen Sie sich mit dem TRONIC- Verlag 
in Verbindung! 

Wir suchen ständig neue Beiträge, z. B.: 

- Tips und I ricks für die verschiedenen Computersysteme 

- Kleine Maschinen-Routinen (Assembler-Listing) 

- BASIC-Unterprogramme 

- Hardware-Bauanleitungen 

- und andere Beiträge 

Wir brauchen von Ihnen: 

1. Ausführliche Beschreibung des eingesandten Beitrages 

2. Datenträger (Kassette oder Diskette) 

3. Komplettes Listing (wenn zur Beschreibung erforderlich) 

All dies senden Sie bitte an den TRONIC- Verlag, Postfach, 3444 Wehretal 1 

W ir zahlen: 120,- DM pro abgedruckte Seite. 
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CPU-Club-Vorstellung 


CPU-Clubvorstellung: 

SVI/MSC-Computer-Cfub 


Zielgruppe 

Zielgruppe des Clubs sind alle 
Besitzerinnen ) von SV1- 
Computem (SVI-318. SYI- 
328. SVI-728: bei entspre- 
chender Nachfrage au*.h der 
Geräte Bondwell 12 14 16). 

Projekte 

1 ) Herausgabe einer regelmä- 
ßig erscheinenden Club- 
Zeitschrift. Geplant ist ein 
vierteljährlicher Rhyth- 
mus. 

2) Erfahrungs-Austausch: 
Hierzu gehören Soft- und 
Hardware-Probleme und 
deren Lösung. Neuent- 
wicklungen. günstige Ein- 
kaufsquellen us» 

3) Software-Börse: Hier 

wünschen wir uns einen 
regen Austausch von 
selbstgeschriebenen Pro- 
grammen. Bevorzugte 
Programmiersprachen 
sind (neben BASIC) PAS- 
CAL und „C“. außerdem 
Z80-Maschinensprache 


unter CP/M und BASIC. 

4) Kontakte zu anderen 
User-Clubs: Obwohl wir 
uns als „offizieller“ User- 
Club verstehen (mehr 
dazu später), sind wir dar- 
an interessiert, mit evtl, 
schon bestehenden Clubs 
Kontakt aufzunehmen. 
Dazu gehören auch - ent- 
sprechende Nachfrage 
vorausgesetzt - die MSX- 
Clubs anderer Hersteller. 

Mitgliedsbeitrag 

Da wir wissen, daß viele S\M- 
Besitzer noch Schüler sind, 
wollen wir einen möglichst 
niedrig gehaltenen und au- 
ßerdem gestaffelten Mit- 
gliedsbeitrag einführen. Die- 
ser Beitrag soll in erster Linie 
dazu dienen, die Unkosten 
für die Herausgabe der Club- 
Zeitschrift zu decken; geplant 
ist ein Jahresbeitrag von DM 
30.- für Schüler und DM 60.- 
für den „Rest der Welt“. Wir 
vertrauen hier auf die Ehr- 
lichkeit unserer Mitglieder 


und bitten ausdrücklich dar- 
um, daß sich nicht alle Bes- 
serverdienenden unter dem 
Namen ihrer Söhne und 
Töchter anmelden! 

Die augenblick- 
liche Lage 

Bisher können wir folgende 
Leistungen und Kontakte 
vorweisen: 

1) Unterstützung durch die 
deutsche SVI-Vertretung 
und Anerkennung als „of- 
fizieller“ User-Club. 

2) Kontakte zum SVl-Club 
Österreich. 

3) Vermittlung besonders ge- 
lungener Programme und 
Hardware-Zusätze an ein 
professionelles System- 
haus. 

4) Telefonischer Feuerwehr- 

dienst für akute Soft- und 
Hardware-Schwierigkei- 
ten unter den Nummern 
(02 09) 20 52 42 (Uwe 

Schröder) für den nord- 
deutschen und 


(0 61 52) 5 84 52 (Rainer 
Monzheimer) für den süd- 
deutschen Raum. 

Wir würden uns freuen. Sie 
als Mitglied begrüßen zu kön- 
nen. Falls Sie sich zu einem 
Beitritt entschließen, teilen 
Sie uns dies bitte mit, unter 
Angabe der folgenden Punk- 
te: 

1 Welche Geräte (Grundge- 
rät, Expander. Disketten- 
laufwerke), Drucker usw.) 
besitzen Sie? 

2) Welche Software können 
Sie evtl, anbieten, woran 
sind Sie besonders interes- 
siert? 

3) Welche Erfahrungen (po- 
sitiv oder negativ) haben 
Sie bisher mit SVI ge- 
macht? 

4) Was erwarten Sie von ei- 
nem SVI-Club? 

Anschrift: 

Uwe Schröder 
4650 Gelsenkirchen 
Wannerstraße 57 


Club- V orstellung: 
Rex Soft-TI-User-Club 


Unser Club besteht noch 
nicht sehr lange ... 

Zuerst war Rex Soft „nur“ 
eine kleine Gruppe von TI- 
Usem. die Software herstel- 
len. doch als wir feststellten, 
wie stark das Interesse am TI 
ist, haben wir uns entschlos- 
sen, daraus einen Club zu 
machen ... 

Der Club besteht zur Zeit aus 
über 30 Mitgliedern, aber 
Rex Soft ist stark am wachsen 

Uns scheint es. daß es noch 
viel mehr Tl-User gibt, die 
Interesse an einem solchen 
Club haben, darum möchten 
wir unseren Club ein wenig 
vorstellen. 
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Unser Club versucht alle Pro- 
bleme zu lösen ... 

Wenn ein Mitglied etwas auf 
dem TI programmieren will, 
und er weiß nicht wie, dann 
kann er sich an die anderen 
Rex Soft Mitglieder wenden. 
Da unsere Mitglieder aus ver- 
schiedenen Ländern kom- 
men, haben wir uns für brief- 
lichen oder telefonischen 
Kontakt entschieden. 

Die Zentrale von Rex Soft ist 
in der Schweiz, aber uns 
scheint es sehr wichtig, daß 
sich die Mitglieder unterein- 
ander auch kennen. Wir ha- 
ben auch eine eigene Club- 
zeitschrift, die etwa monat- 
lich erscheinen wird. 


Diese Zeitschrift haben wir 
noch als Programm gestaltet, 
um diese fiir alle Mitglieder 
gratis anbieten zu können ... 
Unsere Zeitschrift soll von al- 
len Mitgliedern zusammen 
gestaltet werden. Hier werden 
Probleme behandelt, die für 
alle wichtig sind. Weiter gibt 
es Tips & Tricks, die noch 
(fast) niemand kennt, außer- 
dem existiert eine Ideenecke, 
und Softwaretests von Pro- 
grammen, die Rex Soft Mit- 
glieder durchgeführt haben. 
Ebenfalls möchten wir in die- 
ser Zeitschrift eine Top Ten 
über Programme, die in TI- 
Basic oder X-Basic geschrie- 
ben sind, bringen. Bei Rex 


Soft ist noch viel mehr ge- 
plant ... Wir suchen auch 
ständig nach neuen Ideen ... 
Bei uns ist was los ...! 

Wenn Ihr das Info wollt, legt 
Ihr am besten 1 DM 
Rückporto bei ... 

Anschrift: Rex Soft, Daniel 
Peier. Hulfteggstraßc 31, 
CH-8400 Winterthur 

Nutzen Sie die 
Möglichkeit zur 
kostenlosen Vor- 
stellung Ihres 
Computer-Clubs 
in der CPU! 
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Der Sharp 16-Bit-Bürocomputer 
aus der MZ-5600-Serie 



Dieser 1 6-Bit-Computer be- 
sitzt eine Speicherkapazität 
von 256 KB Standard und ist 
erweiterbar auf 512 KB. Das 
Diskettenlaufwerk schafft 
Speicherplatz für 800 KB pro 
Laufwerk und das Modell 
MZ-5645 ist standardmäßig 
sogar mit einem integrierten 
10-MB-Festplattenlaufwerk 
ausgestattet. 

Bemerkenswert ist vor allem 
der große Video-RAM-Spei- 
cher von zusätzlich 96 KB 
mit einem Anzeige-Kontroll- 
LSI für exzellente Grafikdar- 
stellungen: Die Anzeige er- 
folgt im Video-RAM bitwei- 
se. d. h„ daß ein Punkt einem 
Bit entspricht, um ein saube- 
res. klares Bild zu gewährlei- 
sten. Dies ist auch beim „Rol- 
len“ vorteilhaft. Durch 
„punktweises Rollen“ wird 
die Lesbarkeit der Zeichen er- 
halten, auch wenn sich die 
Anzeige verschiebt. Für die 
Arbeit mit Farbgrafiken sind 
die Farbauswahlfunktion und 
die Farbprioritätsfunktion 
wertvoll. 

Der zusätzliche Speicherplatz 
im Video-RAM schafft eben- 
falls die Möglichkeit der 


Window-Darstellung. Bis zu 
vier verschiedene Bild- 
schirmmasken können als 
Fenster auf dem Bildschirm 
gleichzeitig angezeigt werden. 
Für die schnelle Verarbeitung 
der Daten und Grafiken sorgt 
der 8086-Mikroprozessor mit 
16-Bit-CPU. Das Betriebssy- 
stem EOS 16 ist anwendungs- 
kompatibel zu CP/M-80. 
CP/M-86, CCP/M-86 und 
MS-DOS. Damit kann die 
MZ-5600-Serie auf einen 
enormen Software-Markt 
vom Start weg zurückgreifen 
- übrigens auch auf das sehr 
weit verbreitete Angebot der 
8-Bit-Software. die mit dem 
angebotenen Z-80-Board so- 
fort lauffähig ist. 

Die Multiskating-Funktion 
ermöglicht einen gleichzeiti- 
gen parallelen Programmab- 
lauf. 

Als Optionen bietet Sharp 
eine „Mouse“ als Eingabeein- 
heit, die komplizierte Ein- 
tastfolgen erübrigt. Außer- 
dem gibt es den numerischen 
Datenprozessor 8087 für be- 
sonders schnelle Berechnun- 
gen. Als Bildschirm ist wahl- 
weise ein 12 "-Monochrom 


oder 15 "-Farbbildschirm er- 
hältlich. 

Für den umfangreichen Aus- 
bau der Peripherie bietet das 


System eine Vielzahl einge- 
bauter Schnittstellen, u. a. 
Centronics, 2 Kanal RS-232C 
synchron und asynchron. 


Neuer EPSON GX-80-Drucker 


an Heimcomputer angepaßt 


Mit dem neuen Matrixdruk- 
ker GX-80 liefert EPSON ei- 
nen leistungsfähigen und 
preiswerten Drucker für den 
Heimcomputerbercich. Der 
GX-80 benötigt keine spe- 
ziellen Interfaces mehr, son- 
dern ist mit Hilfe von ROM- 
Modulen bereits fertig an den 
betreffenden Computer ange- 
paßt. Bisher sind das Com- 
modore 64 und Atari-Com- 
puter, andere werden in kur- 
zen Abständen folgen. Der 
GX-80 wartet mit für den 
Heimbereich bemerkenswer- 
ten Eigenschaften auf: 100 


Zeichen pro Sekunde, 1 KBy- 
te Buffer und Download-Be- 
reich und neben dem norma- 
len Schriftbild ein NLQ-(Let- 
ter-Quality-)Zeichensatz im 
ROM. Mit 32 internationalen 
Sonderzeichen deckt er die 
länderspezifischen Schriftar- 
ten ab, und eine Vielzahl pro- 
grammierbarer Funktionen 
läßt eine vielseitige Verwen- 
dung zu. Der GX-80 trans- 
portiert Einzelblätter mittels 
Friktionsantrieb. Eine Kas- 
sette für automatischen Ein- 
zelblatteinzug sowie eine 
Traktorführung für Endlos- 


papier sind optional erhältlich. 


Technische Daten des EPSON GX-80-Matrix-Drucker 


Druckmethode: 

Geschwindigkeit: 

Druckrichtung: 


• Anzahl Nadeln: 
Zeichensätze: 


Schriftarten: 

r 


Nadel-Matrix-Drucker 
100 Zeichen pro Sekunde 
Bidirektional mit Druckwegoptimie- 
rung, unidirektional im Graphikmo- 
dus 
9 

2 x 96 ASCII-Zeichen mit je 32 inter- 
nationalen Zeichen, desgl. NLQ-Zei- 
chensatz im ROM 

Pica und Elite normal, gesperrt, fett, 
komprimiert-gesperrt 
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Der Mikro-Computer im Beruf 

Heyne-Verlag, München: Autor: Manfred S. Schmidt; Preis 9.80 DM - Best.-Nr. 15/4 


Dieses Buch versucht die Ma- 
terie „Computer“ in der 
Form der Reportage an den 
Mann zu bringen: der Mikro- 
computer in Büro, Kanzlei 
und Praxis, bei Freiberuflern. 
Selbständigen. Kleinunter- 
nehmem bis hin zu Mana- 
gern und Veranstaltern von 
Autorennen. 

Der Autor dieses Buches. 
Manfred S. Schmidt, hat Uber 
zwei Jahre eine Vielzahl von 
Mikrocomputer-Anwendern 
besucht, um sie über ihre Er- 
fahrungen. ihre Fehler und 
Erfolge zu befragen. Seine Be- 
richte Uber die diversen Pro- 
blemlösungen ergeben ein 
vielfältiges, lehrreiches Bild. 
Es kann dennoch nur eine 
Auswahl von Fallbeispielen 
sein, die keinen Anspruch auf 
Vollständigkeit erhebt, weder 
im Einzelnen noch im Spek- 
trum aller möglichen Com- 
puteranwendungen. 

Der Leser dieses Titels soll 
darüber informiert werden, 
welche Erfahrungen andere 
bereits mit dem Mikrocom- 
puter gemacht haben, damit 
er selbst Fehlplanungen und 


Fehlnutzungen vermeidet. 
Und so bietet sich beim Le- 
sen folgende Methode an: Su- 
chen Sie sich anhand des In- 
haltsverzeichnisses den Be- 
reich heraus, dem Sie selbst 
zugehören, und gehen Sie an- 
schließend zu verwandten 
Bereichen über - auch dort 
gibt es Anwendungen und 
Problemlösungen, die Sie in- 
teressieren werden. 

Einige Kapitel aus dem In- 
haltsverzeichnis: 

Reportagen Uber den Einsatz 
von Mikrocomputern 

1. Einzelhandel 

2. Werbung - Direktverkauf 
- Versand - Großhandel - 
T ransport 

3. Vertretung - Vermittlung 

4. Anwaltschaft - Kanzlei- 
verwaltung 

5. Handwerk 

6. Landwirtschaft 

7. Gastronomie 

8. Baugewerbe 

9. Architektur - Technik 

10. Ärztliche Praxis - Medi- 
zinische Versorgung 

11. Vereinswesen - Sport 


Geldverdienen 

mit 

Programmierung 


Dieses Buch wendet sich an 
die große Schar der Heimpro- 
grammierer und Computer- 
freaks. Die Begeisterung die- 
ser Leute ist dazu prädesti- 
niert, einen wesentlichen Bei- 
trag zur Überwindung der 
Softwarekrise zu leisten. Vor- 


aussetzung dazu ist, daß eine 
Brücke zwischen den Anfor- 
derungen der Industrie und 
den Produkten der Heimwer- 
ker geschaffen wird. 

Das Ziel des Buches ist, hier- 
zu einen wichtigen Beitrag zu 
leisten. Software hat heute 



immer dann eine große kom- 
merzielle Chance, wenn sic 
profihaft erstellt und ver- 
marktet wird. Was darunter 
zu verstehen ist, muß der 
Programmierer wissen, bevor 
er anfängt, seine kostbare Zeit 
in die Entwicklung von EDV- 
Systemen zu investieren. 

Im ersten Kapitel des Buches 
werden Rahmenbedingungen 
für die Beschäftigung mit 


Software aufgczcigt. Dabei 
werden Antworten darauf ge- 
geben, wie eine 

Programmieridee entsteht, 
ob ein fester Auftrag oder 
eine Eigenentwicklung inter- 
essanter ist, welche Voraus- 
setzungen an Zeit. Raum. 
Geld und Know- 
how vorhanden sein müssen, 
und was an Aufgaben im 


nächste Seite) 
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Umfeld der Programmierung 
anfallt. Weiterhin wird auf 
den Markt und ein entspre- 
chendes strategisches Vorge- 
hen eingegangen. 

Im zweiten Kapitel wird die 
Software-Entwicklung in vier 
Phasen beschrieben. Zu- 
nächst wird die Definition 
aus Anwendersicht erläutert. 
Grundsätzliche Designfragen 
sowie die Konstruktion des 
speziellen Softwarepaketes 
werden im Rahmen der zwei- 
ten Entwicklungsphase dis- 
kutiert. Die Programmierung 
als Kernpunkt der herkömm- 
lichen Entwicklung wird kri- 
tisch beleuchtet. Im letzten 
Teil, der Test- und Einfüh- 
rungsphase. steht dann die 
Qualitäts- und Ablaufsiche- 
rung im Vordergrund. Zu al- 
len Abschnitten des Entwick- 
lungsprozesses werden 
Zielsetzungen. Anforderun- 
gen und generelle Vorgehens- 
weisen dargestellt. Das Kapi- 
tel bildet damit einen Über- 
blick über modernes Softwa- 
re Engineering. 

Das dritte Kapitel ist der Ver- 
marktung gewidmet. Ver- 
triebsmöglichkeiten werden 
aufgezeigt, notwendige Wer- 
be- und Marketingunterlagen 
dargestellt, Musterverträge 
und Dokumentationsanfor- 
derungen beschrieben. Eine 
größere Passage beschäftigt 
sich mit Verkaufstechnik. 
Schließlich wird auch noch 
die Verkaufsabwicklung und 
Kundenbetreuung angespro- 
chen, wobei die Problematik 
der Begrenzung des Verwal- 
tungsaufwandes im Vorder- 
grund steht. 

Im letzen Kapitel wird Bilanz 
gezogen und zwar in doppel- 
ter Weise. Die Überwachung 
der Softwareentwicklung 
nach betriebswirtschaftlichen 
und steuerlichen Gesichts- 
punkten bildet den offiziel- 
len, gesetzlich notwendigen 
Teil. Hinzu kommt aber noch 
die sehr persönliche Antwort 


auf die Frage: hat es sich ge- 
lohnt. 

In Anlagen finden Sie als Er- 
gänzung Adressen und Lite- 
raturhinweise sowie die Auf- 
forderung der Autoren an der 
nächsten Auflage durch eige- 
ne Beiträge und Erfahrungs- 


berichte mitzuwirken. 
Insgesamt enthält das Buch 
einen Überblick über die 
Software-Entwicklung und 
Vermarktung von der Pro- 
grammidee über Realisierung 
und Verkauf bis hin zur War- 
tung. Die wichtigsten Grund- 


regeln. Vorgehensweisen und 
Strategien werden mit bana- 
len Tips und praktischen An- 
merkungen zu einem Ge- 
samtwerk gemischt, das in 
dieser Form noch nicht auf 
dem Markt existiert. 


Richtig Programmieren: 

Mit Basic zum Erfolg am Computer 


Heyne-Verlag, München; Autor: Karl-Heinz Landeck: Preis 9,80 DM; Bestell-Nr. 15/10 


Programmieren macht Spaß 
und bringt Gewinn! 

Jeder Anfänger kennt das: 
Die ersten Programmier-Ver- 
suche enden in Frust und Un- 
lust. ln diesem Buch wird den 
Profis über die Schulter ge- 
schaut und Schritt für Schritt 
vorgeführt: 

- Wie professionelle Pro- 
gramme entwickelt und 
realisiert werden. 

- Was der Einzelkämpfer am 
Heimcomputer daraus ler- 
nen und übernehmen kann. 

Im Mittelpunkt steht BASIC. 
Eingebunden in kleine, leicht 
faßbare Problemstellungen 
werden die Möglichkeiten 
dieser populären Program- 
miersprache erschlossen - für 
Anfänger und Fortgeschritte- 
ne. Die wesentlichen Kom- 
mandos und Anweisungen 
werden gründlich erläutert. 
Dieser Titel ist systemunab- 
hängig verfaßt worden. Da- 
her sollte es vom Leser, der 
bereits ein System zur Verfü- 
gung hat, immer im Zusam- 
menhang mit dem Benutzer- 
handbuch für sein System 
und dem entsprechendem 
Basic-Handbuch benutzt 
werden. Der Autor hält sich 
hier, aufgrund der zahlrei- 
chen Basic-Dialekte, an das 
weitverbreitete Basic-80 von 
MICROSOFT. 
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Computergestützter Fremd- 


Ein Hauptproblem des com- 
putergestützten Unterrichts 
heute ist die unstrukturierte 
Art, wie Informationen über 
existierende und in der Ent- 
wicklung befindliche Compu- 
terprogramme verbreitet 
werden. Gute Programme - 
einschließlich solcher, die 
erst vor kurzem für Mikro- 
computer entwickelt worden 
sind - wurden bisher nicht in 
einer Weise öffentlich doku- 
mentiert, daß andere von ih- 
nen lernen konnten. Nur we- 
nige Programme sind im 
Handel erhältlich, und zahl- 
reiche Lehrer Programmierer 
arbeiten unabhängig vonein- 
ander und haben nur wenig 
oder gar keine Ahnung von 
existierenden oder in Ent- 
wicklung befindlichen Pro- 
grammen. Bei Fortbildungs- 
veranstaltungen ist es nicht 
selten, daß einfache Program- 
me demonstriert werden, die 
:it hinter dem inzwischen 
eichten Standard Zurück- 
bleiben. 

Aus dem Inhalt: 

Grundlagen der Arbeit mit 
Computern im Fremdspra- 
chenunterricht - Anwen- 
dungsbeispiele aus den Berei- 
chen Grammatik und Lexik 
und die Fertigkeiten Lesen, 
Schreiben, Hören und Spre- 
chen - Möglichkeiten und 
Grenzen einer Übungstypo- 
logie. 

Stand der Forschung in Euro- 
pa und den USA - Hardware 
und Hardware-Entwicklung. 
Erfahrungen mit Computern 
im Fremdsprachenunterricht 
an Universitäten und Schu- 
len - Programme und Pro- 
grammbeschreibungen. 
Glossar zum computerge- 
stützten Fremdsprachenun- 
terricht. 


Sprachenunterricht 

Herausgegeben von der Langenscheidt-Redaktion, Berlin/München. 

Mit Beiträgen von 11 verschiedenen Autoren. ISBN 3-468-49434-3 


MSX - Der erste 
Heimcomputer-Standard 


Einführung in: 
Technik, Program- 
mierung und 
Anwendung 

Autor. Dietmar Eirich, Hey- 
ne-Verlag München - ISBN- 
3-453-47052-4. Preis: 12,80 
DM 

Dieser Titel gibt Antwort auf 
folgende Fragen: 

-Was heißt MSX - welche 
Technik steckt dahinter? 

- Wie steht es mit der Softwa- 
re? 

-Welche Anwendungen gibt 
es - welche sind wirklich 
sinnvoll? 

Einige wichtige Kapitel aus 
dem Inhalt: 

-Markt und Technik eines 
neuen Standards 

- Firmen und Geräte: Hinter- 
grundinformationen und 
Marktübersichten 

- Peripherie und Zusatzgerä- 
te 

- Programmieren mit MSX- 
BASIC 

Dieses Buch wurde bereits in 
der Juni-Ausgabe der „CPU“ 


• •••• 
• •••• 
• •••• 

• •••• 
• •••• 
• • •• 


HEYNE COMPUTEH BÜCHER 


Dietmar Kindt 

MSX 

DER ERSTE 

HEIMCOMPUTER STANDARD 



Einführung ln Technik. 
Programmierung. Anwendung 
Mit „Gerate Passen“ 
für über 40 MSX Computer 
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Technische Daten des Epson 
GX-80-Matrix-Drucker 

(Fortsetzung von Seite 74) 


Blattaufteilung: 


Papiertransport: 

Interfaces: 

Input-Buffer und 

Download-Bercich: 

Optionen: 


Programmierbarer Zeilenvorschub, 
bis 32 Positionen hör. Tabulator 
8x16 vert. Tabulatorpositionen 
Walzenvorschub für Einzelblätter 
ROM-Cartridges für Commodore 64 
und Atari, weitere in Vorbereitung 

1 KByte 

Traktorführung für Endlospapier. 
Einzelblatt-Kassetten-Aufsatz zum 
automatischen Einzug von Einzel- 
blättern 



EPSON QX-16: 

Mehrere Computer in einem 


Der Personal Computer EP- 
SON QX-16 erschließt eine 
Vielzahl von Anwendungen. 
Denn er ist als Dualprozes- 
sorsystem mit Zilog Z 80 und 
Intel 8088 aufgebaut. Somit 
stehen neben dem EPSON- 
speziftschen Betriebssystem 
auch CP/M 2.2, CCP/M und 
MS-DOS zur Verfügung, so 
daß der QX-16 auch IBM 
PC-kompatibel ist. Über 
ENABLE wird ein mitgelie- 
fcrtes integriertes Programm- 
paket. das Datciverwaltung. 
Kalkulation, bit-mapped 
Grafik und Telekommunika- 
tion umfaßt, bedient. Hinzu 
kommt Autopilot, mit dem 


Lösungen auch ohne Pro- 
grammiererfahrung selbst ge- 
schneidert werden können. Je 
nach Betriebsart werden 2 x 
320, 2x 360 oder 2 x 720 
KByte auf Diskette gespei- 
chert. Eine Festplattenver- 
sion kommt demnächst, der 
Controller ist schon inte- 
griert. 512 KByte RAM. 128 
KByte Bildspeicher und her- 
vorragende, vom Betriebssy- 
stem und dem Grafikprozes- 
sor NEC 7220 unterstützte 
Grafik erschließen neue Mög- 
lichkeiten in der Leistung von 
PCs. Der QX-16 ist IBM PC'- 
kompatibel. 



Technische Daten des EPSON QX-16 Personal Computer: 


Prozessoren: 

Betriebssysteme: 

Arbeitsspeicher: 

Massenspeicher: 


Schnittstellen: 


Z 80 A. 8 bit. 4 MHz 
8088. 16 bit. 5.3 MHz 
Graphik NEC 7220. 17 MHz 
EPSON CP M 2.2 Multifont 
Concurrent CP/M 
MS-DOS. IBM PC-kompatibel 
512 KByte Ram 
2 Floppy Disk Drives 5'/<i Zoll 

- 2 x 640 KByte im QX-16-Format 

- 2 x 320 KBvte im QX-10-Format 

- 2 x 720 KByte im IBM PC-Format 
Seriell: RS 232 C (V.24), program- 
mierbar 

Parallel: Centronics 8-bit Standard 


Steckplätze: 3 

Bildschirm: wahlweise 

- 12 Zoll monochrom, hochauflö- 
send 640 x 400 Punkte, bit-mapped. 
25 Zeilen x 80 Zeichen, entspiegelt 
(serienmäßig) 

- 14 Zoll Color. 640 x 400 Punkte 
(Zusatzkarte erforderlich) 

- IBM-kompatibler Monitor. 640 x 
200 Punkte 


Tastatur: Nach DIN. 105 Tasten mit Rechen- 

block. Cursorbkock. Funktionstasten- 
block. Cursorsteuerung auch mit stan- 
dardmäßiger Maus 

Mitgelieferte 

Software: ENABLE: 

Programmpaket aus 5 intigrierten 
Modulen mit Textverarbeitung. Kal- 
kulation. Datenbank. Graphik. Kom- 
munikation 

SCOUT: Maus-Steuerung 
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BILLIGER 

wird auch Ihre Homecomputerzeitschrift 

wenn Sie sich für ein Jahresabonnement 
von 

HOUECOMPl TER. COMPUTRONIC 
und CPU als Kombination 
entscheiden. 


Für 

6 Hefte von HOMECOMPUTER. 

6 Hefte von COMPUTRONIC und 
1 2 Hefte von CPU 
zahlen Sie im Jahresabonnement 
statt 141.- DM nur 100.- DM. 

Sie sparen also sage und schreibe: 41,- DM. 

Bei Lieferung in das europäische Ausland beträgt 
das Jahresabonnement HOMECOMPUTER. COMPUTRONIC 
und CPU 150.- DM. nach Übersee 200.- DM 

Wir garantieren: 

★ Sie erhalten HOMECOMPUTER, COMPUTRONIC und CPU ab der nächsterreichbaren Ausgabe. 

★ Lieferung erfolgt frei Haus inkl. Mehrwertsteuer. 

★ Die Zustellgebühren sind im günstigen Abonnementpreis enthalten 
★ Es entstehen Ihnen keine weiteren Kosten. 


Ausschneiden und einsenden an: 


X 


Bestellgutschein 

Ja, ich möchte ins Computerleben einsteigen und bestelle deshalb: 

□ Jahresabonnement Kombi: HC. Computronic und CPU (24 Hefte) 100,- DM 

□ Jahresabonnement HC und Computronic (12 Hefte) 55.- DM 

□ Jahresabonnement CPU (12 Hefte) 55.- DV1 


Name Vorname 


Verlagsunion 

Friedrich-Bergius-Straße 20 
Postfach 57 07 

6200 Wiesbaden 


Straße. Nr. PLZ. Ort 

Ich wünsche folgende Zahlungsweise: 

□ Bargeldlos durch Bankcin/ug 

Bankleit/ahl 


Geldinstitut konto-Nr. 

□ gegen Rechnung 

Datum. Unterschrift 

Abonnements-Kündigungen: 

6 Wochen vor Ablauf des Jahresabonnements. 

Außerdem kann ich diese Bestellung innerhalb von 10 Tagen beim Verlag widerrufen! 
Zur Wahrung der Frist genügt 

die rechtzeitige Absendung 

des Widerrufs! Datum. Unterschrift 


Ihr Erfolgsprogramm - 
aus dem Tronic-Verlag 


O ’&a.i IJnjidat Maqtiyn 


Compute mit 

monatlich 
Format A4 

2.80 DM 



CPU 

monatlich 
Format A4 

5.50 DM 


Homecomputer 

zweimonatlich 
Format A4 

6 - DM 


Spitzenprodukte 

für den wachsenden Markt 
der Heimcomputer-Anwender 


Spiele-Kassetten: 

Commodore 64 
VC-20, Atari, 

TI-99, ZX-Spectrum, 
Laser 2001, 
Schneider CPC 464 
Je 19,90 DM 


Informationen: Tronic-Verlag, Landstraße 29 

Postfach 41, 3444 Wehretal 1, Ruf (0 56 51) 406 93 

Vertrieb: Verlagsunion, Friedrich-Bergius-Straße 20, 6200 Wiesbaden, Ruf (0 61 21) 26 60 


